MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 


C 12 


AAI I tH A tS 
AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


oOnmm @Ononmm 
oOnomm Oooo 
oom oo oo 
| @mom So ama 
@oo @ Qa 
oa oa oo 
oo @ oo 
oo oo oo 
| LInnonrrononnng 
ODODODOODODODOODOOO 
' 
222222222222 
aqaaacaaacaacaaca 
aa <a 
aa <a 
<<a aa 
| «<< << 
aa aa 
aa <2 
aqaacaacac aqaaa 
dqQdaqaaaacaaacac 
— 
i 
os 
os 
ee ee ee ee oe 
ee ee ee ee Oe ee ee 
a 
a 
i 
os 
222222222244 
aqaaaaaaaaaacc 
<< << 
aa < 
aa aa 
<<a aa 
aa <<a 
aa aa 
aqaaacaacacaacaacac 
aqadaqaaaacaacaaca 


ed ee ee od 
le ee ee ee eo 


GGGGGGGG 
GGGGGGGG 
GG GGGGGG 


po TT) 


MMMM 
AMWMM 


SSSSSSSS 
SSSSSSSS 
LLLLLLLLLL 
LLLLLLLLLL 


**F I LE**1D®*SMGSTATAB 


. 
° 
. 
. 
o 
. 
” 
. 
° 
. 
° 
. 
° 
. 
. 
. 
° 
. 
. 
. 
6 
. 
e 
. 
- 
. 
7 
* 
. 
* 
. 
co 
. 
7 
. 
. 
. 
° 
. 
. 
- 
o 
. 
2 
. 
. 
° 
. 
7 
* 
. 
. 
. 
oO 
. 
. 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
a 
. 
e 
. 
. 
e 
. 
° 
. 
7 
° 
. 
° 
. 
. 
a 
. 
» 
° 
. 
o 
. 
- 
. 
. 


BEEBE EEE FWA NAIA PON NONINONNOhny 2 2 2 SS OO OS SS 
WDWNOAUE WN O OONAUES WN $9 OONAUE WN (OO ONOUS WN OUDOONOUSwWh— 


SOSSSOSSSSSSSPSSCSDDODODOOOOO OOOO OOOOOOOOO0O 
SSOSSSSSSSOSOSOSOSOSOOOSOSOOOOOOOOSOOO 

MM 33 3 3 3 SSS BOO OOO 

PIs SOON NFM O Doe eer oe 


COoCooooooeooooe 
SEW AWIIWIWNinonoponononofnoru 


—OOONOUES WN" OOOnou 


oo 
oo 
= 


SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


3 
1b-se -1984 01:19: AX-11 Bliss-32 V4.0-7 
14- set 94:18:88 SMGRTL.SRC SMGSTATAB. 8 2;1 
MODULE tanta Ny ABLES Oe RTITLE *TPARSE tables for TERMTABLE statements’ 
IDE ' File: SMGSTATAB.B32 Edit: PLL1004 


)= 
BEGIN 


PPS ESS SITIES STC TTT TTT TTT Tre ceric ect r citi siti tii t iti iii iti tii iii) 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE 4 FURNISHED weer A LICENSE A 
't ONLY \- ACCORDANCE WITH THE TERMS OF S 


—NOoZ 


x 
* 
oa 
x 
u 

C a 

SOF TWARE oT * 

; E MADE AVAILABLE TO ANY * 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF HE SOFTWARE IS HEREBY . 

'w TRANSFERRED. * 

! & 

'® THE INFORMATION IN THIS SOFTWARE I$ SUBJECT TO CHANGE WITHOUT NOTICE * 

'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

'® CORPORATION. * 

* 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ry 
te 


See eee ARERR AREER AAA ee eee eee ee 
' 


'e4¢ 
! FACILITY: Screen Management 
i ABSTRACT: 


This module contains the LIBSTPARSE state tables used to parse 
TERMTABLE statements. 


f) 
1 
1 
{ 
t 
! 
: 
ENVIRONMENT: User mode - AST reentrant 

AUTHOR: P. Levesque CREATION DATE: 29-Jan-1984 

MODIFIED BY: 

: Original. PLL 29-Jan-1983 

Allow logical mame in REQUIRE file spec. PLL 21-Mar-1984 
1 

I 


Tighten up some error goeca ing 18 p. tne state tables. PLL 11-Jul-1984 
More error checking. PLL 11-Jul 


_ 
J 
oO 
oO 
wr 
sete 


SMGSSTATEMENT_T TPARSE tabies for TERMTABLE statements 
1- Declarations 


3 s 990 ! XSBTTL Declarations’ 

; 03 1 | SWITCHES: 

. ¢ 888} i 

; 55 054 1 

; 36 055 1! 

; 2 0056 1 | LINKAGES: 

: 58 0057 1: 

: 59 0058 1: NONE 

: 60 0059 1: 

: 61 0060 1 | TABLE OF CONTENTS: 

: 6¢ 9061 1 

: 6 Ou¢ 1 

; & 0063 1 FORWARD ROUTINE 

: 65 0064 1 MISSING_FILE_ 

: 66 0065 1 MISSING NAME REQUIRE, 
+ 67 0066 1 PARSE _BOOLEANS, 

: 68 0067 1 PARSE -NUMERICS, 

: 69 0068 1 PARSE REQUIRE 

: 70 0069 1 PARSE STRINGS 

; or 0070 1 SEARCA_ KNOWN fees, 

‘> oe 0071 1 START _REW_ TERM 

: 73 0072 1 UNRECOGNIZED RTATEMENT, 
ae 0073 1 ZERO_CUR_TERM_DEF, 

: 75 0074 1 

ag 0075 1 

0076 1 

: 78 0077 1 SHGSSBLANKS _OFF, 

> 79 0078 1 SMGS ’ 

: 80 0079 1 SMCSSCOPY CAP 

> 81 0080 1 SRCSSFLUSR “ARLTHMETIC, 
; 8 0081 1 SMGS$$FLUS R 

: 8B 0082 1 SRCSSFLUSH- SAVED “BUFFER, 
> B4 0083 1 SMGS$$NEXT_RECOR 

: «8S 0084 1 SMGS$SAVE~TOKEN_STRING, 
; 86 0085 1 

: 87 0086 1 SMGS$$STORE_CAP_MASK, 

>: 88 0087 1 SMGS$$SYNTAR ERROR, 

> 89 0088 1 SMGS$$WRI TE *DATAS 

> 90 0089 1 

: 91 0090 1! 

: 9 0091 1! INCLUDE FILES: 

E ¢ 0092 1 

: «94 vu93 (1 

> «95 094 1 REQUIRE 'RTLIN:SMGPROLOG'; 

: 9% 0172 1 

: 97 0173 1 

: 98 0174 1 LIBRARY 'RTLML:SMGTPALIB';: 

: 99 0175 1 

: 100 0176 1 

: 101 0177 1 LIBRARY "RTLTPAMAC': 

; 108 0178 1 

: 10 0179 1! 

+ 104 oi 0 1 ! EQUATED SYMBOLS: 

: 105 181 1 

+ 106 01 é 1 LITERAL 

: 107 01 1 SINGLE_QUOTE = %X‘27', 


ee eee 


signal error 
signal error 
compile bool 
compile nume 
compile caps 
compile stri 


ean capabi 
ric cope abi 
in REQUIR 


l 
L 
E 
ng capabili 


AX-11 Bliss-32 V4.9-7 
SMGRTL.SRCJSMGSTATAB. 4 231 


search table of crown soratnets 
new term, init def fields 


signal error 


mark no current terminal definition 


! The following are used by all the SMG TPARSE tables. 


set bit to skip over blanks 


' set bit to fi 


copy strin 
flush opitieat! 


nd blanks 


cap into TERM 


etic data t 


TABLE 
o TERMTABLE 


flush number to data area 


flush saved 


token to data 


get next record from ascii oTERMTABLE 


Save pointer 
in current c 
remember cap 
+t Aa, synta 


& count of 
ap string 
number 
x error 


chars 


k 1/0 write data to file 


Defines psects, macros, etc. 


Bliss lLibrar 
macros used 


of defini 


tions & 


or TERMTABLE 
TPARSE Library of macros 


SMGSSTATEMENT_T T 
1-0 D 


NAME WN OOD NOAU EW OOOO 
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WR 0 DONA U EWN $C OBNAU EWN ODDO EWN SO OO NAUE WN HOOD NOULSWN OS 
WWI = eee ets 
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SONA MEW OO ODNAUES WN (“OO ONAUS WN OO 


PARSE te for TERMTABLE statements 


' 
! FIELDS: 


NONE 


PSECTS: 


i EXTERNAL REFERENCES: 
XTERNAL ROUTINE 
LIBSTPA 


STRSUPCASE, 
STRSCOPY_DX; 


SMG$ “MISFILSPE, 
SMG$_MISENDSTA, 
SMGS_MI SNAMREQ: 


TERMS_TABLE : 
TERMS"NAME : V 


BLO 
" ECT 
TERMS _NUM; 


CK 
OR, 


SMG$$A_BOOLEAN_STATES, 
MG LEAN-KEYWDS. 


OWN STORAGE: 


SMGSSMASK_ADR : | 
SMGSSNEXT~NEGATIV 


NITIAL (0), 
E_NUMBER : INITIA : 
! used to assign terminal numbers 


parser 
convert to uppercase chars 
copy src string to dest string 


error at Line n 

error in Line n at or near ‘'x' 
failed to open file x 

missing terminal name 

syntax error 

unrecognized statement 

missing file spec in REQUIRE stmt 
missing END statement 

expected NAME or REQUIRE 


The following is the table of DEC terminals used by SET/SHOW TERM. 


VECTOR C,28.ByTEI, itable of known terminals 
' ta 


e of their names 


' number of known terminals 


'¢ 
: The following are the keyword and state tables needed by LIBSTPARSE. 


! used by TPARSE action routines 
L (2), 


3 
-Sep-1984 01:19: AX=11 Bliss-32 V4.0-74 
een 1984 13:10:68 TL.S CISMGSTATAB.6 231 
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ET Po rrr arr - -_ 


e- ~$60-1984 0413388 AX-11 Bliss-32 V Page ‘ 


+ platen T TPARSE tables for TERMTABLE statements a anelt Otis Shasta i 4 “s 
ep- . 


1 
Declarations 1 


s 365 41 1 J al with - “¢ spvge SET TERM 

: 198 42 1 ews -1 as failed to find name) 
3 be rs } SMGSSCURRENT_LINE : INITIAL (0), | gurrent Pay i Line = maintained 

; 169 0245 1 SMGSSCURRENT_BLOCK : INITIAL (2 + SMGSK. CAP PIR 8 ei yE/512 
: 170 0246 1 ' current virtual teat ¢ qr TERMTABLE .EXE 
s 71 0247 1 ! (data skips over ptrs) 

3 76 0248 #1 SMGSSCURRENT_DEF_BLOCK : INITIAL (2), 

a Sr 0249 1 start of terminal definition 

: 174 0 0 1 (0 is reserved for a header) 

s 175 0251 1 SMGSSDATA_OFFSET : INITIAL (SMGSK_ CAP_ PTRS SIZE); 
; 1% 8 28 1 !“starting offset for terminal data 
3; VW 55 1! 

: «178 0254 1 ! MACROS: 

> 179 0255 1! 

: 6180 0256 1! NONE 

3; 161 0257 1 


4 

ables for TERMTABLE statements bese -1984 01:19: AX-11 Bliss-32 V4.0-74 Pa 5 
TEMENT_TABLES = TPARSE tables for TERMT 12-8 08- 1882 1 13:68 SMGRTL.SRCISMGSTATAB.B 2:1 ™ (3) 
RSBTTL "SMGSSSTATEMENT_TABLES = TPARSE tables for TERMTABLE statements’ 


FUNCTIONAL DESCRIPTION: 


a 


SSTATEMENT_T 


-004 
183 
184 
185 


mn 
anu 
um 
Po 


T 


: The following are the state tables used to parse an ascii 

: TERMTABLE.TXT (a file which defines terminal characteristics). 
: This set of state tables looks for valid statements and then 
calls LIBSTPARSE with the state tables for those statements. 


i 
<n 


SINIT_STATE (SMGSSA_STMT_STATES, SMGSSA_STMT_KEYWDS); 
! set up state tables, key words 


'¢ 
! Begin scanning loop. Look for the start of a statement. 
Skip over blanks and comments. 


EGIN_SCAN, 

F_CINE), BEGIN_SCAN 
EGIN SCAN, SMGSSNEXT_RECORD), 
TEMENT), BEGIN SCAN, SMGSSBLANKS_OFF), 


SMGSSNEXT_RECORD), 
$_LAMBDA, TPA$_EXIT) 


B 
D_O 
8B 
A 


vuvvUU 


SALRSSLISSSLSESRASLSSSEEF 
> 


'¢ 
! This state indicates the end of a Line. A comment also signals the 
end of a Line. 


POPIPUIPORIPIPIPINININININIPININININININININININD 2 2 OO OS SS SO 
MINN 3 OS OOO $e tet eR Ne Pee Ot tw 
euitababababababhubatatabubsbabeibebaiababababababubuiabubahababuababatahababababubchabaiababuababah apabiaia aaa aia 


Be Oe Be Be Be Be Be Se Se Oe Oe Ge Ge Oe Ge Be Be Se Ge Se Se Ge Ge Se Se Ge Se Ge Ge oe FHSS Se Oe Be Se BH SESH Se Se HSH Se Se SESH Se Se Se Se SHEESH es ae 


7 

8 

9 

0 

| 

3 P SSTATE (END_OF_LINE, 

4 e (TPAS_EOS, TPAS_EXIT), 

5 P (*!* “Teas EXITS, 

§ P TPA LAMBDA, TPAS_FAIL) 

8 

9 '¢ 

, 2 Look for the beginning of a known statement type. 

: P 0297 1 $STATE (STATEMENT | 

P 0298 (*REQUIRE', REQUIRE FILE), 

324 P 0299 ("NAME', EQUALS, , SMGSK_NAME, SMGSSMASK_ADR), 

25 P 0300 (FORCED END, TPAS_FAIL), | 
$8 P 0301 (TPAS_SYMBOL, , MISSING NAME REQUIRE), 

; P 308 (TPAS-ANY, , MISSING_NAME_REQUIRE) | 
29 0304 
é 0 0305 1 !+ 
= Bene NAME = ‘string’ is the format we expect. Found NAME, now look for ‘='. 
238 P ee $STATE (EQUALS 

34 P 0309 (CEND_OF LINE), EQUALS, SMGSSNEXT_RECURD), 

35 P 0310 (ts! E VALUE, SMGS$STORE CAP_MASK), 

36 P 6311 (TPAS_SYMBOL, , SMGSSSYNTAX ERROR), 

x P 9 i (TPASANY, , SMGSSSYNTAX_ERROR) 

38 031 ; 

39 0314 


dD 4 
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1-004 SMGSSSTATEMENT_TABLES = TPARSE tables for TERMT 14-Sep-1984 13:10: SMGRTL.SRCJSMGSTATAB.B32; 1 (3) | 
: 240 9 1§ 1! 
3 ¢ 8 18 1 The value of NAME should be a string. 
; 2g P 0 18 1 SSTATE_(NAME_VALUE, 

ls 266 P0319 1 (CEND_OF LINE), NAME VALUE, SMGSSNEXT_RECORD), 
: 245 P 0320 1 ((STRINGY, SCAN_DEFIRITIONS, | 
; 46 P0321 1 (TPAS_SYMBOL, ,~SMGSSSYNTAX ERROR), 
: 26 P 0 : 1 (TPAS_ANY, , SMGSSSYNTAX_ERROR) 
3 GR 0 1 3 
; 49 0324 1 
: 250 0325 1 !+ : 
: 2} 8 $ } A string can be bounded by single or double quotes. | 
: $2g P 0328 1 $STATE (STRING 
> 254 P 0329 1 (SINGLE_QUOTE, SINGLE_QUOTE_STRING), 
> 255 P0330 1 (DOUBLE-QUOTE, DOUBLE-QUOTE-STRING), 
; 256 P0331 1 (TPAS_LAMBDA, TPAS$_FATL) 
3 See Oeeg 1 ); 
: 258 0333 1 | 
3; ¢99 0334 1 !+ ; 
3 +44 Otee ; The name should be plain text - no escape, control, or expressions allowed. 
; 26 P 0337 1 S$STATE (SINGLE_QUOTE STRING 
: 26 P0338 1 SINGLE QUOTE, TPAS EXIT, SMGSSCOPY_CAP), 
3; 264 P 0339 1 PAS SYMBOL, SINGLE QUOTE STRING, SMGSS$SAVE_TOKEN_STRING), 
> 265 P 0340 1 (DOUBLE QUOTE, , SMGSS$SYNTAX_ERROR) , 
> 266 P0341 1 (TPAS_LAMBDA, TPAS_FAIL) 
: 67 Berg 1 3 
> 268 0343 1 | 
; 269 P 0344 1 SSTATE (DOUBLE_QUOTE_STRING 
: 270 P 0345 1 (DOUBLE QUOTE, TPAS EXIT, SMGSSCOPY_CAP), 2 | 
; 271 P 0346 1 (TPAS SYMBOL, DOUBLE QUOTE STRING, SMGS$SAVE_TOKEN_STRING), 
: 27 P 0347 1 (SINGCE QUOTE, , SMGSSSYNTAX_ERROR) , 
> ef P0348 1 (TPAS_LAMBDA, TPAS_FAIL) 
; gr 0349 1 ); | 
: 275 0350 1 | 
3 2 0351 1 !¢ , : : 
3 144 0326 : Found a REQUIRE statement, now find the file name that should follow it. 
i $5 P 0354 1 $STATE (REQUIRE FILE, | 
3 280 P0355 1 (CEND_OF_ LINE), REQUIRE_FILE, SMGS$NEXT_RECORD), | 
: 381 P0356 1 ((FILE SPEC), BEGIN SCAN, PARSE _REQUIRED 
: Be P 0357 1 (TPAS_CAMBDA, TPA$_FAIL, MISSING FILE_SPEC) 
: $f O28 1 ; 
; 284 59 1 
; 285 0360 1 !+ 
: 286 0361 1 ! Assume the file name is between single quotes. Pass the name to SOPEN 
: 4 0368 : ' and let it decide whether it's a valid filespec. | 
3; 289 Pp Seca 1 $STATE (FILE_SPEC 
: 290 P 0365 1 (SINGLE QUOTES 
: 91 p 366 (TPAS_LAMBDA, TPAS_FAIL) 
; 38 68 1 
: 29% Pp 3 1 SSTATE (GET_FILE_SPEC ; 
: 295 P 6 01 (SINGLE~QUOTE, TPAS_EXiT), 
: 2% P0371 1 (TPAS_ARY, GET_FILESPEC, SMGSSSAVE_TOKEN_STRING), 


4 
SMGSSTATEMENT_T eeate for TERMTABLE statements 18-Sep-19 4 9 13346 AX=-11 Bliss-32 V4 
i- SMG$$S 710: 5 


tables 0-74 | 
TATEMENT_TABLES = TPARSE tables for TERMT 14-Sep-1984 SMGRTL.SRCJSMGSTATAB.B32; 1 (3) 
(TPAS_LAMBDA, TPAS_FAIL) 


: 297 P 0 if 1 

; 298 8 oe ; 

; 2 74 (1 

; 300 0375 1 !4 

: a 0 ug 1 ! When we get here, we have found a terminal name. At this point we are 

3 8 8 f | : expecting some capabilities to be defined. 
: 04 P 0 8 1 SSTATE (SCAN_DEFINITION, 
: 05 P 0380 1 (END_OF Ll E), SCAN_DEFINITION, SMGSS$NEXT_RECORD), 
; 06 P 8 81 1 ('BOOTEAR', SCA DEFINITION, PARSE_BOOLEANS), 
s 07 P B¢ 1 ("NUMERIC', SCAN DEFINITION, PARSE-NUMERICS), 
; 08 P 8 : 1 (*STRI G', SCAN DEFINITION, PARSE_STRINGS), 
: 309 P 0384 1 ("END', BEGIN_SCAN, ZERO_CUR_TERM-DEF) | 
: 310 P0385 1 (TPAS_SYMBOL,~, UNRECOGNIZED STATEMENTS, 

: 311 P 0386 1 (TPASANY, , UNRECOGNIZED_STATEMENT) 

; \¢ 0387 1 

s 3 0388 1 
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1-004 MISSING _FILE_SPEC = signal missing tile specifi 14- gep-19 41 18:68 eMGRTLS CISMGSTATAB. 5 2:1 2 (4). 
; 39 82 1 ZSBTTL "MISSING_FILE_SPEC = signal missing file specification’ 

; 1 Q 1 ROUTINE MISSING_FILE"SPEC = 

, 3) "| 

3 518 3 1 44 

; 3 0 7 ! } FUNCTIONAL DESCRIPTION: 

; 3 6 2? ! We come here if there is no file spec in the REQUIRE statement. 

; : 0 39 1 ! CALLING SEQUENCE: 

; 4 0398 1! 

; 5 0399 1! MISSING_FILE_SPEC (); 

$ $ 0400 1! 

: 0401 1 ! FORMAL PARAMETERS: 

; 328 Beng 1! 

3 9 0405 1! NONE 
; 0 0404 1! 
; 1 0405 1 ! IMPLICIT INPUTS: 

3 $36 0406 1! 
; 35 0407 1! AP Points to TPARSE parameter block 
; 334 0408 1! 
s 6355 0409 1 ! IMPLICIT OUTPUTS: 
3 $39 0410 1! 
3; sy 0411 1! NONE 
; 333 ott 1! 
$ te 0413 1 ! COMPLETION STATUS: 
3; 340 0414 1! 
; 341 0415 1! SS$_NORMAL | 
3 s08 0416 1! 

; 34 0417 1 ! SIDE EFFECTS: | 
> 344 0418 1! | 
; 345 0419 1 !=- 
: 346 0420 1 | 
: 347 0421 2 BEGIN 
; 348 04 ¢ § BUILTIN 
: $ep 04 AP; 
; ae 0424 2 on 
3 ol 0425 2 : REF BLOCK C,BYTE); 
3 $26 0426 | 
= 0427 SIGNAL_STOP (SnGS ERRLIN, 
: 354 0428 , SHOSSCURRENT WLINE, | 
3 59 0429 sacs _MISFILSPE) 
s 336 0430 

3 «So 0431 1 


END; ! end of routine MISSING_FILE_SPEC | 


-TITLE SMGSSTATEMENT_TABLES TPARSE tables for TERMTABL 
; E statements 
-IDENT \1-004\ 
-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
00000 ; TPASKEYSTO 0 


U.23: .BLKB 
45 52 49 55 51 45 52 00000 = iPAbxevst 
-ASCII WSEQUIRE ; 


.BY 
S808 ; TPASKEYSTO 


4 
SMGSSTATEMENT_T hig d 1 tables for TERMTABLE statements 18s -1984 219: AX-11 iss- 4, 
i- MISSING FILE SPEC ~ signal miseing Tite specifi 1ecsenet9Re $$:10:08 Famers saeismestatan 6251 Poge 43 


U.29: — , BLKB 
45 4D 41 4E 00008 ; TRASKEYST : 


FF 000C “BY TE -1 $ 
FF OOOD ; TPASKEYFILL 
U.43: -BYTE 1 : 
O0000E , CORREYSTO P 
4E 41 45 4C 4F GF 42 OQOOOE ; TPASKEYST 
U.125: .ASCII \BOOLEAN\ 3 
FF 00015 .BYT 1 3 
00016 A eae | 0 
43 49 52 45 4D 55 4E 00016 ; TPASKEYST 
U.131: ASCII \NUMERIC\ g 
FF 00010 BYTE -1 F 
OOOIE ; TPASKEY 
U.135: .BLKB 0 
47 4E 49 52 54 53 OQOOIE ; TPASKEYST 
U.137: ASCII \STRING\ é 
FF 00024 -—BYTE =1 3 
00025 ; TPASKEYSTO 
U.141: .BLKB 0 
44 4E 45 00025 ; TPASKEYST 
U.143: ASCII \END\ : 
FF 00028 BYTE -=1 3 
FF 00029 ;TPASKEYFILL 
U.151: BY -1 eo | 


.PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 

| 

00000 SHGSSA_STMT STATES: 
00000 BEGIN_SCAN: | 


0 
99F8 00000 ;TPASTYPE 
U.2:) WORD —-26120 : | 
0000* 00002 ; TPASSUBEXP 
U. 4: <<U.3-U.4>-2> : 
00000000v 00004 ;TPASACTION 
U. 5: au <<SMGS$NEXT_RECORD-U.5>-4> 3 
0000* 00008 ; TPASTARGET 
U.6: «WORD <<BEGIN_SCAN-U.6>-2> : | 
9021 OO00A ; TPASTYPE 
U.?7: «WORD -28639 3 
00000000v 0000C ;TPASACTION 
U. 8: LONG <<SMGS$S$NEXT_RECORD-U.8>-4> : 
0000* 00010 ; iPASTARGET 
U.9: «WORD <<BEGIN_SCAN-U.9>-2> : 
99F8 00012 ; TPASTYPE 
U.10: -WORD =-26120 3 
0000* 00014 ; TPASSUBEXP 
U. 12: WORD <<U.11-U.12>-2> 3 
00000000vV 00016 ; TPASACTION 
U.13: -LONG <<SMGSS$BLANKS_OFF-U.13>-4> : 
0000* OOO1A ; TPASTARGET 
U.14: -WORD <<BEGIN_SCAN-U.14>-2> : 


emen 
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15F6 
FFFF 


11F7 
FFFF 
1021 
FFFF 
15F6 
FFFE 


1100 
0000+ 
7101 
00000000* 
00000228 
0000+ 
1000 
FFFE 
81F1 
00000000v 
85ED 
00000000v 


99F8 
0000+ 
00000000Vv 
0000+ 
903D 
00000000v 


fe specifi 14- 


H 
16- 
4 


nw 


0001C 
OOO1E 


; TPASTYPE 


Cce- Ce. 
—4e 
bed 
“4 
> 
=z 
ave 
m 
— 


“mA 
st 


A+ 
“— + 
<= > 
wv DD 
me Ge 
m 
~ 


0002¢ 
0002¢ 
0002 ;T 
00030 
00032 
00036 
0003A 
0003¢ 
O003E ; 
00040 
00042 
00046 
00048 ; 
0004¢ 
0004¢ 
0004E 
00050 
00054 
00056 ; T°ASTYPE 

00058 eS 


wr 
— 
~< 
uv 
m 


: TPASADDR 
: TPASMASK 
U.34: LONG 
;TBABTARGET 

, TEASTYPE 


;TPasAcTiON 
WA rebage 
Seat Los 

«LON 


ah. 


—eo «de 
. RUPVEUVWOR OS . w Ww w w 
™~ o “w i th hed = Oo od ™ o 
. Aes Dee 
—s 
a 
v 
m 


: W 
ASSUBE XP 
2 WOR 


ce. 
> 
Lh ad 
> 
oO 
=a 
me 
oO 
r 4 


~ LON 
; TPASTARGET 
WORD 


Cs: Ss: See 


“1986 45:10 
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5622 
-1 


4352 

<<U.27-U.28>-2> 

28929 

<<SMGSSMASK_ADR-U.33>-4> 

555 

<<U.35-U.36>-2> 

4096 

-2 

-32271 
<<MISSING_NAME_REQUIRE-U.40>-4> 
-31251 
<<MISSING_NAME_REQUIRE-U.42>-4> 
0 

-26120 

<<U.3-U.45>=2> 
<<SMGSSNEXT_RECORD-U.46>-4> 
<<U.35-U.47>-2> 

-28611 
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a 
ng tile specifi 14-Sep-1984 SMGRTL.SRC SMGSTATAB. " 2;1 (4) | 


oe 
-—w 
iz 
Pa 


U.49: «LONG <<SMGSS$STORE_CAP_MASK-U.49>-4> : ; 
gene Sane: jiBASTARCET <v,80-0.519=2> | 
° . "-U. >-2> é Py 
81F1 OO0SE TN ah 32271 | 3 
00000000v 00060 ; TPASACTION 2 : 
U.53: LONG <<SMGSSSYNTAX_ERROR-U.53>-4> ; | ; 
B85ED 00064 ; TPASTYPE : 
00000000V 00066 ; TPASACTION ; 
U.55: .LONG <<SMGSSSYNTAX_ERROR-U.55>-4> : 3 
Q006A ;NAME_VALUE ; 
U.50: -BLKB 0 3 
99F8 OO06A ; TPASTYPE 3 
U.56: «WORD =26120 : 3 
0000* O006C ; TPASSUBEXP 
00000000V OO06E ; TPASACTION 
U.58: ~ LONG <<SMGSSNEXT_RECORD-U.58>-4> : 
0000* 00072 ; TPASTARGET 
U.59: .WORD <<U.50-U.59>-2> ; 
19F8 00074 ; TPASTYPE 
U.60: -WORD 6648 3 
0000* 00076 ; TPASSUBEXP 
U.62: «WORD <<U.61-U.62>-2> 3 
0000* 00078 ; TPASTARGET 
U.64: -WORD <<U.63-U.64>-2> : 
81F1 OOO7A ; TPASTYPE 
U.65: «WORD -32271 : 
00000000V 0007C ; TPASACTION 
U.66: LONG <<SMGSSSYNTAX_ERROR-U.66>-4> : 
85ED 00080 ; TPASTYPE 
U.67: eWORD -31251 : 
00060000V 00082 ; TPASACTION 
U.68: .LONG <<SMGSSSYNTAX_ERROR-U.68>-4> : 
00086 ;STRING 
U.61: -BLKB 0 
1027 00086 ; TPASTYPE 
U.69: eWORD 4135 : 
0000* 00088 ; TPASTARGET 2 
U.71: «WORD <<U.70-U.?1>=2> 3 
1022 OO0O8A ; TPASTYPE 
U.72: «WORD 4130 : 
0000* O008C ; TPASTARGET 
U.74: eWORD <<U.73-U.74>-2> : 
15F6 OOOBE ; TPASTYPE 
U.75: WORD 5622 3 
FFFE 00090 ; TPASTARGET | 
U.76: ~ WORD 3 
00092 SINGLE QUOTE STRING 
U.70: -BLKB | 
9027 00092 ; TPASTYPE 
U.7?7: > -28633 Py | 
00000000V 00094 ; TPASACTION 
U.78: ok <<SMGSSCOPY_CAP-U.78>-4> : 
FFFF 00098 ; TPASTARGET | 
0.79: -WORD -1 3 
| 


ING_ 
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1-004 MISS FILE_SPEC = signal missing file specifi 14-Sep-1984 


91F1 
00000000v 
0000+ 
8022 
00000000v 
15F6 
FFFE 


9022 
00000000v 
FFFF 
91F1 
00000000Vv 
0000+ 
8027 
00000000v 
15F6 
FFFE 


99F8 
0000* 
00000000v 
0000+ 
99F8 
0000+ 
00000000¥ 
0000+ 
95F6 
00000000* 


0009 
0009¢ 
000A0 
000A2 
WORD 
QO0A4 ; TPASACTION 

0.84: 
000A8 ; 
OOOAA ; 
OOOAC 
OOOAC 
OOOAE ; 
00082 ; 
00084 
00086 ; 
OOOBA ; 
0008C 
OOOBE ; 

0.94: 
000c2 ; TPASTYPE 
000C4 : TPASTARGET 
000C6 ; APQuiRe. FILE 
000¢6 ; TPASTYPE 
000¢8 ; 
OOOCA ; 
OOOCE ; 

100: 
00000 PA 
000D2 FA 
000D4 ; TPA 
10 
PA 
10 
PA 
10 
PA 


; TRASTYPE 


ce. 
co 


1: LONG 
 TPASTARGET 
U.82: WO 


sibastyPé. 


: TPASTYPE 
 TPASACTION 


00008 
QO0DA 
0000C 


158 USMcatuesnedsagsYataa-082;1 
-28175 
<<SMGSSSAVE_TOKEN_STRING-U.81>=4> 
<<U.70-U.82>-2> 

-32734 
<<SMGSSSYNTAX_ERROR-U.84>=4> 

5622 


-28638 

<<SMGSSCOPY_CAP-U.88>-4> 

1 

28175 
<<SMGS$$SAVE_TOKEN_STRING-U.91>-4> 
<<U.73-U.92>-2> 

-32729 
<<SMGS$$SYNTAX_ERROR-U.94>=4> 

5622 

-2 


-26120 

<<U.3-U.98>-2> 
<<SMGSSNEXT_RECORD-U.99>=4> 
<<U.27-U.100>-2> 

-26120 

<<U.102-U.103>-2> 
<<PARSE_REQUIRE-U.104>-4> 
<<BEGIN_SCAN-U.105>-2> 
-27146 


K R. 
SMGSSTATEMENT_T ort tables for TERMTABLE statemen e 4 AX-11 Bliss-32 V4.0-7 P 
1-006 MISSING FILE SPEC ~ signal missing Tite specifi tecsenetone $$:10.08 Famer te taeisnestaten eS251 oe 1} 

U.107: .LONG  <<MISSING_FILE_SPEC-U.107>-4> ; | : 
FFFE QOOEO ; TPASTARGET by Pr 3 
U.108: ~ WORD -2 é Ps 
000E2 iF SPEC , | ; 
0027 OQOOE2 ; TPASTYPE F 
0.109: .WORD 39 ; | ; 
15F6 OOOES ; TPASTYPE 3 
-110: . WORD 5622 : 3 
FFFE QOOE6 ; TPASTARGET F 
U.111: WORD -2 : 3 
OOOES GET_FILE_SPEC: 3 
-BLKB 0 $ 
1027 O00E8 preagtyre $ 
U.112: WORD 4135 : : 
FFFF OQOOEA ATeeg tance , : 
JIED OOOEC ; TPASTYPE : 
U.114: WORD -28179 : 3 
00000000V OOOEE ; TPASACTION $ 
U.115: .LONG <<SMGSS$SAVE_TOKEN_STRING-U.115>-4> : ; 
0000* OOOF2 ; TPASTARGET 3 
U.116: .WORD <<GET_FILE_SPEC-U.116>-2> : ; 
15F6 OOOF4 ; TPASTYPE é 
U.117: WORD 5622 3 $ 
FFFE OOOF6 ; TPASTARGET 3 
U.118: WORD 3 3 
OOOF8 ;SCAN_ DEFINITION : 
U.63:  .BLKB 3 
99F8 OOOF8 ; TPASTYPE 3 
U.119: .WORD <-26120 3 3 
0000* OOOFA ; TPASSUBEXP 3 
U.120: .WORD <<U.3-U.120>-2> 3 3 
00000000V OOOFC ; TPASACTION 5 
U.121: LONG <<SMGSSNEXT_RECORD-U.121>-4> : s 
0000* 00100 ; TPASTARGET 3 
U.122: .WORD <<U.63-U.122>-2> : 3 
9102 00102 ; TPASTYPE 3 
U.126: .WORD -28414 Z $ 
00000000V 00104 ; TPASACTION : 
U.127: LONG <<PARSE_BOOLEANS-U.127>-4> 3 ; 
0000* 00108 ; TPASTARGET 3 
U.128: .WORD <<U.63-U.128>-2> 3 : 
9103 OO10A ; TPASTYPE ; 
U.132: .WORD -28413 3 3 
00000000v 0010C gO RAC TION 3 
U.133: .LONG <<PARSE_NUMERICS-U.133>-4> : : 
0000* 00110 ; TPASTARGET 3 
Us Ie: eWORD <<U.63-U.134>-2> 3 3 
9104 00112 ; TPASTYPE $ 
U.138: .WORD -28412 3 F 
00000000V 00114 ; TPASACTION 3 
U.139: .LONG <<PARSE_STRINGS-U.139>-4> : : 
0000* 00118 ; TPASTARGET 3 
U.140: WORD <<U.63-U.140>-2> : | : 
9105 OO11A ; TPASTYPE | 3 
U.144: WORD -28411 ; | g 
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missing f 


tatemen 


00000000v 
0000+ 
B1F1 

00000000v 
85ED 

00v80000V 


0000* 
0000+ 
0000+ 
0000* 
0000* 
0000+ 


00000000 
FFFFFFFE 
00000000 
00000005 
00000002 
00000600 


ite specifi 15-56 


0011¢ 
00120 ; 
00122 
00124 
00128 
0012A 


00000 
00000 
00000 
00002 
00004 
00006 
00008 
QO00A 


00000 
00004 
00008 
0000C 
00010 
00014 


Sep-19 AX-11 Bliss-32 V4.0-74 
ety 7 94:13 ‘68 SMGRTL® SRCJISMGST ihe o$2:1 
sTPA ACTION 

0.145: <<ZERO_CUR_TERM_DEF =U. 145>=4> 

$ TPASTARGET 

U.146: . <<BEGIN_SCAN-U.146>-2> 

ETOAS TYPE 

U.147: WORD -32271 

Nate robber: 

U.148: .LONG <<UNRECOGNIZED_STATEMENT-U.148>-4> 
; TPASTYPE 

U.149: WORD -31251 

; TPASACTION 

U.150: .LONG <<UNRECOGNIZED_STATEMENT-U.150>-4> 


-PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
SMGSSA_STMT_KEYWDS:: 
L 0 
; TPASKEYO 


U.1: -BLKB O 

; TPASKEY 

U.24: . <U.23-U.1> 
; TPASKE 

U.3U: .WORD <U.29-U.1> 
; TPASKEY 

U.124: .WORD <U.123-U.1> 
; TPASKEY 

U.130: .WORD <U.129-U.1> 
; TPASKEY 

U.136: .WORD <U.135-U.1> 
; TPASKEY 

U.142: . WORD <U.141-U.1> 


.PSECT _SMGSDATA,NOEXE, PIC,2 
SMGSSMASK ADR: 

SMGSSNEXT NEGATIVE _NUMBER : 

SHGSSCURRENT LINE: 

SMGSSCURRENT, BLOCK: : 

SMGSSCURRENT DEF _BLOCK:: 


.LON 
SMGSSDATA_OFFSET:: 
CONG 1536 


EXTRN LIBSTPARSE, STRSUPCASE 
EXTRN STRSCOPY_DxX Ke SMGS RLIN 

TL sacs. FALOPEF IL 
EX TE tH SMGS$~SYNERR 
EXTRN SMGS_UNRECSTA, SMG$_MISFILSPE 
EXTRN SMG$ ghiSENDSTA SHS MISNAMREQ 
7 
E 
E 


EXTRN TERMS TAB TERMS 
XTRN tf Lee SA BOOLEAN. STATES 
XTRN TERS NBOOLEAN KETWD 
XTRN SMGSSA-NUMERIC~ “Fates 


4 AX-11 Bliss-32 V Page 15. 
71982 9%: 18; 88 SMGRTL.SRCJSMGST ot oy 5 2;1 - (4) | 
.EXTRN SMGSSA_NUMERIC_KEYWDS | 
“EXTRN SMGS$$A_STRING_STATES 
.EXTRN SMGSS$SA~STRING_KEYWDS 


«PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


M 
FAESSTATERENT T Med 2 tables for TERT ABLE tatemen 16-$ 


oe 
Sep 
MISSING _FILE_SPEC = signal missing tile specifi 14-Sep 


0000 00000 MISSING Fite SPEC: 
ORB Save nothin : 039 
88000 00G 00 9F 00 ‘ BUSHAB SMG$_MISFIL ; 04 
0000° EF OD 98 PUSHL SMGSSCURRENT_LINE 3 0428 
1 bo oF PUSHL #1 3 0427 
00000000G 00 9F 0001 PUSHAB SMG$_ERRLIN 3 
000000006 00 4 FB 00016 CALLS #4, CIBSSTOP 3 
04 0001D RET ; 0431 


; Routine Size: 30 bytes, Routine Base: _SMGSCODE + 0000 


0000 00000 MISSING Ca as Hee Sg 


} 
c 
SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 16- Sep- 138+ 9 £13338 AX-11 ss-32 V4.0 Page 16 
MISSING_NAME REQUIRE = missing exoected NAME or 14-Sep-1984 : SMGRT iP CISMGSTATAB. 3 2:1 (5). 
3 59 4 § 1 ZSBTTL_ "MISSING_NAME_REQUIRE = missing expected NAME or REQUIRE’ 3 
; 360 435 1 ROUTINE MISSING-NAME-REQUIRE = ; 
5 61 4354 1 | Py 
; 36 0435 1 !44 3 
; e7 Be $ ! FUNCTIONAL DESCRIPTION: : 
: 65 Be ek We come here if there is some statement other than NAME or REQUIRE | 3 
; 366 439 1! starting a definition. | : 
3 Ser 0440 1! 3 
; 68 0441 1 ! CALLING SEQUENCE: $ 
; 69 rk 1! 3 
: 70 044 1! MISSING_NAME_REQUIRE (); $ 
3 71 0444 1! 3 
; Lf 0445 1 ! FORMAL PARAMETERS: é 
; Sf 0446 1! 3 
s 376 044 1! NONE $ 
, ST9 0448 1! 3 
; 3/8 0449 1 ! IMPLICIT INPUTS: 3 
. Ber 0450 1! 3 
; 378 0451 1! AP Points to TPARSE parameter block | F 
; 379 Ong . 3 3 
; 380 045 1 ! IMPLICIT OUTPUTS: é 
; 381 0454 1! 3 
3 382 0455 1! NONE : 
: 383 0456 1! F 
3; «4384 0457 1 =! COMPLETION STATUS: $ 
3 385 0458 1! 3 
3; 386 0459 1! SS$_NORMAL : 
s 387 0460 1! 3 
: 388 0461 1 ! SIDE EFFECTS: $ 
; 389 0462 1! 3 
; 390 046 1 !-- 3 
; 391 0464 1 : 
3 308 0465 BEGIN g 
; W 0466 BUILTIN 3 
3; 394 1467 AP; 3 
; 395 0468 we 
; 396 0469 : REF BLOCK C,BYTE); 
: add 0470 
4 98 0471 SIGNAL_STOP (SAGS,, ERRAT_LIN 
: 399 047 sp SMGSSCORRENT LINE, 
: 400 047 TPASL_TOKENCNT 
; 401 0474 TPASL~ TOKENP mR 
; rt 0475 enGs _MISNARREQ) 
: 40 0476 
3; 404 0477 1 END; ! end of routine MISSING_FILE_SPEC 
of MI SNARA ota 
000000996 9 00 of 00 ; PUSHAB snos aT SNAR Fa ; Se 1 
00000000" F 3 $5 PUSHL seceeURRERT. LINE : $233 
cf DD b013 PUSHL #3 “ 3 wert | 
| 


SMGSSTATEMENT_T micein tables for TERMTABLE statements 
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000000006 60 44 6 0001 
04 2 


p 


1b-s¢ -1 1 AX-11 Bliss-32 V4.0-7 Page 17 
1 penn 1 38e 9}: 18: 88 SMGRTL.SRC SMGSTATAB. 3 2;1 . (35 
; PUSHAB SMG$_ERRAT_LIN 
1 E 


000000006 00 CAL LS #6, CIBSSTOP 


; Routine Size: 34 bytes, Routine Base: _SMGSCODE + OO1E 


5 
react T TPARSE tables for TERMTABLE statements 1b-sep=19 4 91] 


19: 66 AX-11 Bliss-32 V4.0 Page 
PARSE_BOOLEANS = parse boolean capabilities 14-Sep-1984 


1: 1 
3:10: SMGRTL.SRC SMGSTATAB. 3 2:1 (6 


; 406 0478 1 XSBITL "PARSE_BOOLEANS = parse boolean capabilities’ : 
: 407 0479 1 ROUTINE PARSE-BOOLEANS = : 
: 408 0480 1 3 
; 409 0481 1 !+ | 3 
: ei? pee : FUNCTIONAL DESCRIPTION: : 
3 aig 0484 1 } Parse boolean papa by —s LIBSTPARSE with the 2 
>; «41 0485 1! boolean state tables and keywords e use separate tables ; 
: rt pens : in order to avoid bumping into the 220 keyword Limit. | ; 
: 416 488 1 | CALLING SEQUENCE: : 
> 417 489 1 | | : 
: 418 0490 1! Status = PARSE_BOOLEANS (); ‘ 
: 419 0491 1! : 
; 420 049 1 i FORMAL PARAMETERS: ° 
> 421 0493 1! : 
3 $s6 0494 1! NONE : 
: 42 0495 1: : 
> 424 0496 1 ! IMPLICIT INPUTS: : 
> 425 0497 1! : 
; 238 0498 1 | AP Points to TPARSE parameter block ; 
> 427 0499 1! : 
: 428 0500 1 ! IMPLICIT OUTPUTS: : 
: 429 0501 1} : 
: 430 p26 1} NONE : 
3; 431 0503 1! - 
> 432 0504 1 ! COMPLETION STATUS: | : 
; 433 0505 1} : 
> 434 0506 1 i SS$_NORMAL : 
; 435 0507 1! : 
: 436 0508 1 ! SIDE EFFECTS: : 
: 437 0509 1} ; 
; 438 0510 1 i= : 
; 439 0511 «+1 : 
; 440 B2i§ 2 BEGIN : 
> 441 Oo13 ¢ BUILTIN | : 
: ry Bele CALLG, ; 
3; 44 15 P; | 3 
3 6444 0516 MAP : 
; 4445 0517 AP : REF BLOCK C,BYTE); | 3 
: 446 0518 LOCAL : 
> 447 0519 STATUS; ; 
> 448 0520 : 
: 449 83 1 + . 3 
; $29 B2 § Should have seen a NAME statement by the time we reach here. : 
° bees | © 
3 +26 8 : IF .AP CPARAM_L_CUR_TERM_DEF] EQ. 0 : 
; 6454 5 § SIGNAL_STOP tyres ERRLIN : 
; 455 5 . SMGS$CURRENT_LINE, | ; 
> 456 528 sis -MISTERNAM) ; | ; 
: 457 B23 9 ; 
; 458 530 '¢ 3 
: $33 03 1 We reuse the same TPARSE parameter block. : 
; 461 5 : IF NOT (STATUS = LIBSTPARSE (. had SMG$$A_BOOLEAN_STATES, : 
S462 0534 MGS$$A_BOOLEAN_KEYWBS) ) ; 


9 5 
SMGSSTATEMENT_T [range tables for TERMTABLE statements 16-Sep-1984 01:19: AX-11 Bliss-3 

ti PARSE_BOOLEANS = parse boolean capabilities 13288-1382 93:18 88 SMGRTL SRETSAGSTAT ABB B32;1 _ (| 
; 463 933? THEN 
; ree} Be | SIGNAL_STOP (.STATUS); 
; 466 82 RETURN (SS$_NORMAL); 
: 467 0 END; ! end of routine PARSE_BOOLEANS | 
| 
0004 00000 PARSE BOOLEANS: © se 

. ave g 

52 seta | 00 43 O08 MOVAB ob ae heat R2 3 
4 ag D 000 TSTL (AP) 3; 0524 

17 12 0000C BNEQ 1$ : 
00000000G 00 9F OODDE PUSHAB SMG$_MIS : 0526 
00000000" EF DD Beate PUSHL SMCSSCURRENT. ALINE : 0527 
1 DD QOOTA PUSHL #1 : 0526 

00000000G 00 9F OODIC PUSHAB SMG$ fon ie 3 

2 04 FB 00022 CALLS #4, CIBSST : 
00000000G 00 9F 00025 1$ PUSHAB SMGS$S$A SSOOLEAN. KEYWDS :; 0533 

00000000G 00 9F 00028 PUSHAB SMGS$$A_BOOLEAN_STATES ; 

5C DD 00031 PUSHL AP é 

00000000G 00 03 FB 00033 CALLS #3, LIBSTPARSE 5 

05 50 £8 OOO3A BLBS STATUS, 2$ 3 

50 DD 00030 PUSHL STATUS ; 

62 01 FB OO03F CALLS #1, LIBSSTOP : 

50 01 DO 00042 2$ MOVL #1, RO 3 
04 00045 RET 3; 0539 


; Routine Size: 70 bytes, Routine Base: _SMGSCODE + 0040 
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1-004 ¢ capabilities 14-Sep-1984 13:10: SMGRTL.SRCJSMGSTATAB.B32;1 


PARSE _NUMERICS = parse numer 


-o 


> 469 40 1 XSBITL ‘PARSE_NUMERICS - parse numeric capabilities’ ; 
; re ‘1 : ROUTINE PARSE_NUMERICS = : 
; tig bee } je : 
; «47 0544 1 ! FUNCTIONAL DESCRIPTION: : 
> 474 B26? 1! ‘ 
; 475 0 rh ; | Parse numeric capabilities - calling LIBSTPARSE with the : 
; 476 0547 1! numeric state and keyword tables. ug use separate tables : 
3 ry bees | in order to avoid bumping into the 220 keyword Limit. | ‘ 
: 479 0550 1 ! CALLING SEQUENCE: | 

; 480 B22) 1! 

: 481 236 1! status = PARSE_NUMERICS (); 

; 48 0555 1! 

; 48 0554 1 ! FORMAL PARAMETERS: 

> 484 0555 1! 

> 485 0556 1 | NONE | 

; 486 0557 1! 

; 487 0558 1 ! IMPLICIT INPUTS: 

> 488 0559 1! 

; 489 0560 1! AP Points to TPARSE parameter block 

: 490 0561 1! | 

; 491 p26 1 ! IMPLICIT OUTPUTS: 

; 49 0563 1} | 

; 49 0564 1! NONE 

> 494 0565 1! 

: 495 0566 1 ! COMPLETION STATUS: 

> 496 0567 1! | 

: 497 0568 1! SS$_NORMAL 

> 498 0569 1! 

; 499 0570 1 ! SIDE EFFECTS: 

: 500 0571 1! 

; 501 B27¢ 1 !-- 

: 206 0573 1 

; 0574 2 GIN 

3 ee 0575 2 BUILTIN 

; 505 0576 2 AP; 

; 506 0577 $ MAP 

: 507 0578 AP : REF BLOCK C,BYTE]; 

3 208 0579 LOCA 

; 9 0580 STATUS; 

: 510 0581 

3; «511 B2e6 '¢ ‘ 

3 318 b2g7 Should have seen a NAME statement by the time we reach here. 

; 514 0985 IF .AP CPARAM_L_CUR_TERM_DEF] EQL 0 

e 39 286 THEN 

a 36 058 SIGNAL_STOP (SMG$_ERRLIN 

; 517 0588 1, .SMGSSCURRENT_LINE, | 

; 518 0589 SMG$_MISTERNAM) ; 

: Si 0590 

; 239 591 '¢ 

: : 1 236 ; Reuse the same TPARSE parameter block. 

: 508 594 IF NOT (STATUS = LIBSTPARSE (.AP, SMGSSA_NUMERIC_STATES, 

; 524 595 SMGSSA_NUMERIC_KEYWDS)) | 

; $25 0596 THEN 


-. | 
16-Sep-1984 01:19: AX-11 Bliss- 4.0-74 Pa 1 
Ries = parse numeric capabilities 12280871388 93:18:68 SMGRTL.SRC Saas tat aa. B32;1 m 3 
iH ae SIGNAL_STOP (. STATUS); 


SMGSSTATEMENT_T renee .s es for TERMTABLE statements 
1-004 E_NUM 


8 599 Sa (SS$_NORMAL) ; 


9 3533 ! end of routine PARSE_NUMERICS 


0004 00000 viearse teat! ae: 


WO Save R2 ; 0541 

52 000000096 00 9 9002 MOVAB bith BSSTOP, R2 : 
aay en Fst BNES Be 
000000006 00 9F O000E PUSHAB dics MISTERNAM : 0587 
00000000' FF DD b9014 PUSHL SMGSSCURRENT _LINE : 0588 
1 DD OOO1A PUSHL : 0587 

000000006 00 9F 9001¢ PUSHAB sacs ERRLIN : 

04 FB 000 é CALLS EIBSSTOP : 
000000006 00 9F 00025 1$ PUSHAB gnéss UMERIC_KEYWDS + 0594 

000000006 00 9F 00028 PUSHAB pattie “NUMERIC” “STATES : 

3¢ DD 00031 PUSHL AP : 

000000006 00 03 FB 00033 CALLS #3, LIBSTPARSE ; 

05 50 £8 OOO3A BLBS STATUS, 2$ : 
50 DD 00030 PUSHL STATUS : 0597 

62 01 FB 0003F CALLS #1, LIBSSTOP ; 
50 01 dO 00042 2$ MOVL #1. RO : 0599 
04 0004 RET : 0600 


; Routine Size: 70 bytes, Routine Base: _SMGSCODE + 0086 
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5 
for TERMTABLE syetements 1$-sep-19 4 03:19:88 
- parse definitions in REQUIRE fi 14-Sep-1984 :10: 


L_"PARSE_REQUIRE = parse definitions in REQUIRE file’ 
NE PARSE REQUIRE = 


ables 
QUIRE 
ZSBTT 
ROUTI 
'e¢ 
' FUNCTIONAL DESCRIPTION: 
In order to parse the definitions contained in a RE 
we call ourselve recursively. Notice that the REQU 
contain another REQUIRE statement, etc. 
CALLING SEQUENCE: 
status = PARSE_REQUIRE (); 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
AP Points to TPARSE parameter block 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS¢_NORMAL 


SIDE EFFECTS: 


Qu! 
IRE 


BEGIN 
BUILTIN 
CALLG, 


MAP 
AP : REF BLOCK C,BYTE); 
LOCAL 7 
REQUIRE_FAB : $SFAB_DECL, ! FAB for required file 
RAB for required file 
' addr of original FAB 
! addr of original FAB 


REQUIRE-RAB : $RAB~DECL, 

SAVED_RAB, ' 

SAVED _CUR_LINE cur Line in original file 
i 
' 


SAVED_FAB, 


TEMP_BUFFER : VECTOR (255,BYTEJ,! buffer to hold records 
OPEN_STATUS status retd by SOPEN 
CLOSE STATUS, status retd by $CLOSE 


'¢ 


! status retd by called routines 


! In order to parse records from a different file, we need to reset the 
! FAB and RAB fields stored in the TPARSE parameter block. We save the 
! addresses of the original FAB and RAB so that we can continue reading 


' those records when we are done here. 


H 
SMGSSTATEMENT_T PARSECR es for TERMTABLE pyecenents 16- ee p= 138% 04:13:66 Ax-11 B 
\- on 14-Sep-1984 :10: 


© 
it = aarae atl n REQUIRE fi aNGRTL Sat ishesYATas 69231 4 


~w 
cmd 


; 588 6 3 

; 589 6 SAVED_FAB = PARAR-ACTET RAB | ; 

; 590 66 SAVED-RAB = “AP EPARAMCATTXT RABI; | 3 

> 591 661 SAVED_CUR LINE = .SMGSSCORRERT_LINE; 5 

3 95 006 ' Femem * where we are in first ithe 3 

; 9 P 066 SFAB_INIT (FAB = = RE FAB, FNS = AM_L_SAVED_TOKENCNT), : 

; 594 P 0664 FNA = PARAM_L SAVED TOKENSTRI, “DAM = ‘TTXT', : 

; 3? bere FAC = eer. SHR = GET, ORG = SEQ); : 

$ 2a6 see4 IF NOT (OPEN_STATUS = SOPEN (FAB = REQUIRE_FAB)) : 

: §99 0669 SIGNAL_STOP ( mcs, FALOPEE IL | : 

; 600 $650 gp TPASL_fOKENCNT), 371 
; 601 0671 AP Treas T — PTRI, : 1 
: 60 067 -OPEN_STAT Atos $7 
: 60 067 | 4 
; 604 067 AP CPARAM_L_SAVED_TOKENCNT) = 0; 3 3 
; 605 0675 AP CPARAM_L_SAVED_TOKENSTRI . 0; 3 7 
; 606 067 ' re-init s 7 
; 607 067 37 
: 608 0678 '¢ 3 7 
; 609 0679 i Conmect a RAB to the FAB so we can access the file. 3 3 
: 610 0680 ie $7 
: 611 0681 3 3 
; oie pes SRAB_INIT (RAB = REQUIRE_RAB, FAB = REQUIRE_FAB); : : 
; 614 0684 SCONNECT (RAB = REQUIRE_RAB); | 3 7 
: 615 0685 3 7 
: 616 0686 REQUIRE_RAB CRABSW USF = 255; e 7 
; 617 0687 2 REQUIRE “RAB RABSL_ UBF] = TEMP BUFFER [0]; 37 
: 618 0688 ' Set up buffer for RMS to use 3 7 
: 619 0689 '¢ > 
; 620 0690 i Put the new FAB and RAB into the parameter block. 3 7 
: 621 0691 ie $7 
3 Océ 069 3 7 
: 62 069 AP CPARAM_A_TXT_FAB] = REQUIRE_FAB; 37 
: 624 0694 AP CPARAM_ A_ TXT “RABI = REQUIRE “RAB; 3 
636 bee ote 4 
: 627 69 i Call ourself recursively, reusing the current TPARSE block. a} 
. on oe : 
; 630 0700 IF NOT (STATUS = LIBSTPARSE (.AP, SMGSSA_STMT_ STATES, 3 7 
; 631 9701 SMG$SA_STMT_KEYWDS) ) 31 
; 6 ¢ 10 THEN 37 
3 63 070 SIGNAL_STOP (.STATUS); | 
; 6 0704 3 1 
; 635 Bre 37 
3 $36 tai 7 "fectare the original FAB and RAB addresses to the parameter block. : 1 
: 638 fai | 37 
; 639 7 AP [PARAM_A_TXT_FAB) = .SAVED_FAB; 3 1 
: 660 0 AP C[PARAM_A_TXT_RABJ = .SAVED_RAB; | : 1 
5 646 ay SMGSSCURRENT_LINE = .SAVED_CUR_LINE; 3 1 
3; 64 71 g 1 
3 644 0714 '¢ 7 


5 
MGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1b-s “1984 01:19: AX-1 
-004 PARSE _REQUIRE = parse def nitions n REQUIRE fi 10-Sep-19 4 93318568 


1 Oi fegeze V4.0-74 
SMGRTL.SRCJSMGSTATAB.B32;1 


; et af j Done with the required file, close it. 
: 6468 rig LF NOT (CLOSE_STATUS = SCLOSE (FAB = REQUIRE_FAB)) 
: 630 720 SIGNAL_STOP (.CLOSE_STATUS); 
oo BB. 
: 638 7 § Get the next record from the original definition file. 
: 655 0725 2. 
; 696 07 : CALLG (.AP, SMGS$NEXT_RECORD); 
: 658 0728 RETURN (SS$_NORMAL) ; 
; 659 0729 1 END; ! end of routine PARSE_REQUIRE 
54 58 54 2€ OOOCC P.AAA: ASCII \.TXT\ 
.EXTRN SYSSOPEN, SYSSCONNECT 
SEXTRN SYSS$CLOSE 
O7FC 00000 PARSE_REQUIRE: 
.WORD Save R2,R3,R4,R5,R6,R7,R8B,RI,R10 
5A 00000000' EF 9E 00002 MOVAB  SMGSSCURRENT_LINE, R10 
59 000000006 060 9€ 00009 MOVAB LIBS$STOP, R9 
SE FE6C CE 9E 00010 MOVAB <-404(SP)., SP 
58 24 AC DO 00015 MOVL  36(AP), SAVED_FAB 
6 28K BO O90Ib MOVE SHGSSCURRENT CIA. SAVED. CUR_LINE 
0050 BF 00 6E = 00 2c 90020 MOVCS #0, (SP), #0; #80. SRMS_PTR ~ 
BO AD 5003 8F BO 00029 MOVW #20483, $RMS_PTR 
C6 AD 0202 «BF 80 0002F MOVW #514, $RMS_PTR+22 
CD AD 94 00035 CLRB = $RMS_ PTR#+29 
CF AD 02 90 00038 MOVB #2, SRMS_PTR+31 
DC AD 58 AC DO 9005¢ MOVL  88(AP), SRMS_PTR+44 
EO AD BB AF 3 0041 MOVAB P.AAA, $RMS_PTR+48 
E4 AD 54 ACO 90046 MOVB 84(APS, $RMS_PTR+52 
ES AD 04 90 00048 MOVB 4, $RMS_PTRI53 
BO AD 9F OO0D4F PUSHAB REQUIRE F 
000000006 00 1 F O08 CALLS #1, SYSSOPEN 
11 : E 308 LBS § OPEN_STATUS, 1$ 
D C PUSHL OPENTSTATUS 
7E 10 AC 72D 1: MOVQ. 16(AP), -(SP) 
02 DD 0006 PUSHL @# 
000000006 : F 00064 PUSHAB + SMG$_FAIOPEFIL 
69 FB OO06A CALLS #5, CIB$STO 
54 ac 7 9060 1$ CLRO AP 
0044 8F 00 6E she 00 2¢ 9070 MOVCS #0, (SP), #0, #68, SRMS_PTR 
FF6C CD 4401 8 80 OO7A MOVW #17409, $RML_PTR 
AS AD BO AD 9E 00 1 MOVAB REQUIRE_FAB, $RMS_PTR+60 
FF6C «6CD OOF PUSHAB REQUIRE RAB 
000000906 00 1 FB 38 A CALLS #1, SYSSCONNECT 
C AD FF 8F 9B 00091 MOVZBW #255, REQUIRE_RAB+32 


0667 


I~ 
won 


ooo 
me 


0674 
0682 


0684 
0686 


a rr re SS 


SMGSSTATEMENT_T Toanse tables for TERMTABLE statements 1b-5e Sep-1 AX-11 Bliss-32 v4.0- Page 25. 
\- ARSE _REQUIRE Taeres definitions in REQUIRE fi 1 ~30071 382 9}: 18: 88 ONGRTL SHE TSAGSTATAB B B32;1 . BS 
0 AD 6E 9E 96 MOVAB TEMP_BUFFER, REQUIRE_RAB+36 3 0687 
46 ac BO AD 9E A MOVAB REQU UTRE_FAB, 36(AP) 3 0693 
8 AC Fre CD 9E f MOVAB aeyage » S0CAP) : $94 
8 ' CF OF A PUSHAB SSA STMT_KEYWDS 3; 0700 
000' CF F A PUSHAB SMGSSAq STMT~STATES : 
DD AD PUSHL AP : 
000000006 69 4} AF CALLS #3, LIBSTPARSE 3 
: B BLBS STATUS, 2$ : 
DD B PUSHL ATUS ; 0703 
69 1 =F BB CALLS #1, LIBS$STO : 
3h AC § D BE 2$: MOVL SAVED FAB, 3 pd 3; 0709 
8 Ac D C MOVL SAVED-RAB, AP) 3 071 
6A 6 b ¢ OVL SAVED-CUR Line. SMGSSCURRENT_LINE : 071 
BO AD 9F 000C9 PUSHAB REQUIRE |F FAB : 071 
000000006 00 01 FB b0ce CALLS SYSSCLOSE : 
0 50 €8 000D LBS tLOse STATUS, 3$ ; 
50 DD 00006 PUSHL CLOSE STATUS : 0720 
69 01 FB 00008 CALLS LTB$STOP : 
0000v CF 6C FA OO00DB 3$: CALLG tabye SMGSS$NEXT_RECORD : 0726 
0 07 00 000EO MOVL #1, RO + 0728 
04 000E3 RET : 0729 


; Routine Size: 228 bytes, Routine Base: _SMGSCODE + 00D0 


SSTATEMENT_T TPARSE t 
SE_STR 


OOOOCCoococo0eo v 
—~ 


Se OSS eeee 
~“ 


es for TERMTABLE statem 
GS -p 

TTL ‘PARSE_STRINGS = parse strin ilities' 
TINE PARSE-STRINGS = . a iy 


kK 5 
nts 16-Sep-1984 01:19: AX-11 Bliss-32 v4. 
arse string capabit ties 12786713 4 93318588 USMGRTL SRE SMGSTAT 


bl 

IN 

SB 

OUTINE 
'¢ 


8 
x 

'e4¢ 

FUNCTIONAL DESCRIPTION: 

; Parse string capabilities by calling LIBSTPARSE with the string 
state and keyword tables. be use separate tables to avoid bumping 
into the 220 keyword Limit. 

CALLING SEQUENCE: 

status = PARSE_STRINGS (); 

} FORMAL PARAMETERS: 

} NONE 

IMPLICIT INPUTS: 

AP Points to TPARSE parameter block 

} IMPLICIT OUTPUTS: 

NONE 

COMPLETION STATUS: 

SS$_NORMAL 

SIDE EFFECTS: 

le 


BEGIN 
wel 


AP : REF BLOCK C,BYTE); 
LOCAL 
STATUS; 


1+ 
Should have seen a NAME statement by the time we reach here. 
if i CPARAM_L_CUR_TERM_DEF] EQL 0 
SIGNAL_STOP (SMG$_ERRLIN 
1, .SMGSSCURRENT_LINE, 
SMG$_MISTERNAM) ; 


'¢ 
Reuse the same TPARSE block. 


IF NOT (STATUS = LIBSTPARSE (.AP, SMGSS$A_STRING STATES, 
THEN SMG$SA_STRING_KEYWDS) 
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000000006 


Routine Base: 


; Routine Size: 


By TERMTABLE statements 


= parse string capabilities 
SIGNAL_STOP (.STATUS); 
Sa (SS$_NORMAL) ; 


0004 
52 coecooras 00 9 


_ 
9 


000000006 


000000006 
000000006 


Oovnmowooooom 
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00 
05 
62 
50 


ouomomno oo 
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! end of routine 


00000 PARSE_STRINGS: 
WORD 


Ooo 
oOo 
or 


COOoOCooooooooooooooSo 
™m 
ad 


QOOoCooCooCoooooeoeoco 


fF PWWIAIinonon | | OO 
VITO PW DVO SF EMO 


_SMGSCODE + 01B4 


13:48 AX-11 Bliss-32 V4 
SMGRTL.SRCJSMGSTAT 


PARSE_STRINGS 


nr mm 


SMG$_MISTERNAM 
SMGSSCURRENT_LINE 


SMGS er ths 
a4, 


CIBSSTOP 
SMGSSA_ STRING_KEYWDS 
SMOSSA_ STRING_STATES 


#3, LIBSTPARSE 
STATUS, 2$ 


STATUS 
#1, LIBSSTOP 
#1, RO 
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ARSE tables for TERMTABLE statements 16-Sep- 38¢ 03:13:88 AX-1 
-KNOWN_TYPES = search table of known term 14-Sep-1984 13:10: SMGR 


te be ie i i 
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~“ 
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ZSBITL *SEARCH_KNOWN_TYPES = search table of known terminal types‘ 
ROUTINE SEARCH_KNOWN_TYPES = 


lee 

FUNCTIONAL DESCRIPTION: 
i Search a table of DEC terminals to see if the user is using a 
! known terminal name in his definition. (SMG will define DEC 
' terminals = users shouldn't but just in case...) We want to 
‘ ess ign the positive DT$_xx type instead of a negative number 
} or DEC terminals. 

; CALLING SEQUENCE: 

status = SEARCH_KNOWN_TYPES (); 

; FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

; AP Points to TPARSE parameter block 

; IMPLICIT OUTPUTS: 

} NONE 

COMPLETION STATUS: 

SS$_NORMAL 

1 

i] 

! 


i SIDE EFFECTS: 


BEGIN 
BUILTIN 
CALLG, 
AP; 
Da : REF BLOCK C,8YTE]; 
TYPE : INITIAL (+1), ' terminal type ‘ 
PTR_UPCASED_NAM ! addr of upcased terminal name 


ra T7RAB : REF $RAB_DECL; i ptr to RAB for TERMTABLE.TXT 
TERMSB_TYPE = 1, 0, 8, O%; 


'¢ 


TXT_RAB = .AP CPARAM_A_TXT_RAB); 
PTR_UPCASED_NAME = .TXT_RAB CRABSL_UBF) + 


POPOROR AoRORORORORONONOPONROPONONONONONUNS 2 2 Os 
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i The saved tokenptr points to the user's original text. For comparison 
purposes. we need to look at the upcased version. So index into upcased 
! buffer 


SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 16 a 9-138¢ 94:18 38 AX-11 Bliss-32 V4.0-74 Page ; 
1-004 SEARCH _KNOWN_TYPES = search table of known term 14-Sep-1984 SMGRTL.SRCJSMGSTATAB.B52;1 (1 


ea 


J | 
: z 0 0 48 (,AP CPARAM_L_SAVED_TOKENSTR] = .AP CPARAM_L_ORIG_TXTJ); | : 
: 7 : 26 1+ | :1 
; ree Oe2) to Search table of names indexed by type. : | 
; £85 ue i INCR INDEX FROM 0 TO TERM$_NUM =1 DO | ; 
: 787 Ree BIND : 1 
; 788 0896 AME = .TERMS_NAME C.INDEX] : S$BBLOCK; 2] 
> 789 85 IF CHSEOL (; -AB AP PARAM. L_SAVED_TOKENCNTJ, PTR _UPCASED 31 
; £90 0838 ied PARAM_L-SAVED-TOKENCNTJ, .NAME CDSCSA~ POTTER) ; 
: 79 0860 4 BEGIN : 4 
:; 79 0861 4 TYPE = .TERMS_TABLE C.INDEX, TERMSB_TYPE]; 31 
: 794 Berg 4 EXITLOOP; | 
: 795 086 END; | 
; es 9¢: END; ! end of INCR loop : 1 
: 798 086 \+ : 1 
3; Ty O86? i If we found the name, then use its type number. If we exit this routine : 1 
; 800 0868 ! without a type. the caller (START_NEW_TERM_DEF) will assign a negative | 
3 B03 aH z terminal num : | 
: 80 0871 2— 31 
: Bos 0878 thei ‘weeded: i] 
: 806 0874 ; 
: 807 0875 3 OI PASL NUMBER] = .TYPE; 
: a8 pe7e : CALLG ( CABS SMES SFLUSH _NUMERIC); ! put type into data buffer 
: 810 0878 : RETURN (SS$_NORMAL); 
: 81 0880 ELS 
: HE bans ; RETURN (0); ' tell caller to assign negative number 
; 815 0888 1 END; ! end of routine SEARCH_KNOWN_TYPES 
OOFC 00000 SEARCH_KNOWN TYPES: 
WORB Save R2,R3,R4,R5,R6,R7 : 0792 
57 01 ¢ 90002 MNEGL #1, TYPE : 0827 
0 28 AC op 005 MOVL.  4OCAP), TXT 0845 
51 58 AC C AC C3 00009 SUBL3 92(AP). 88(AP) : 0848 
56 51 34 AO ci 0000F ADDL3 36(TXT_RAB), W. Rare _UPCASED_NAME F 
55 000000006 00 9E 0014 MOVAB TERMS RUM-1, RS > 0853 
54 01 cE 0018 MNEGL #1, INDE : 0857 
50 0000000060044 , O96 1$ Soul team M$_NAMECINDEX], RO > 0856 
04 B80 66 54 AC : 0 CHPCS ACA APY, (PTR_U Th “NAME), @4(RO) > 0857 
50 54 Ic § 6 5 ULL #28. INDEX RO > 0861 
57 0000000060040 9A O54 MOV ZBL TERMS _ TABLE+1(ROJ, TYPE Fons 
DE 54 ge F3 4 E 2%: AOBLEQ as, INDEX, 1$ : OBss 


SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1b-se p-1984 01:1 AX-11 Bliss-32 V4.0-74 $ 
1-004 SEARCH_KNOWN_TYPES = search table of known term 12: 300-138 9}: 18; 88 SMGRTL.SRC SmeSTATAB 692; 1 Page 439 1 
FFFFFFFF SF 7 O1 943 3$: CMPL TYPE, #-1 ; 087 
ep 3 BEQL 4$ 3 am 
1c = AC D iS MOVL TYPE, 28(AP) ; 0875 
0000V ff 6C FA 4F CALLG (AP), SMGSS$FLUSH_NUMERIC ; 0876 
0 07 DO 00054 MOVL #1, RO : 0881 
04 00057 RET 3 
50 D4 00058 4$: CLRL RO : 
04 OOOSA RET ; 0883 


; Routine Size: 91 bytes, Routine Base: _SMGSCODE + O1FA 
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SMGSSTATEMENT_T TP” LE babies for TERMTABLE statements 1-56 -1984 AX-11 Bliss-32 V4.0-74 Page 31 

eee STAnT_NEW_TERM_DEF = Start of a term def, init 12: Sen-1 38 94:18 ‘68 SMGRTL SRE ISMESTATAB 62; 1 ° (11). =( 
; 817 884 1 1SBTTL "START _NEW.TERMDEF - Start of a term def, init fields’ | : | 
; 818 8 5 1 ROUTINE START_NEW-TERM_DEF :] 
; 819 § 1 | 
; 820 887 1 +4 : 
; 5 1 ogee | : FUNCTIONAL DESCRIPTION: | : 
; ; +h 1! We are at the beginnin Bi a terminal definition (ie. we just J 
; 824 sy) 3} encountered a NAME fie we nged to begin a new block, make : 1 
: 825 a4 1! an entry into the aaratenl definition index, and initialize 

3 HY $ Baez } } some fields preceeding the capability pointers. | 

; 828 94 1 !' CALLING SEQUENCE: 

; 829 ee 

; 830 0897 1 | status = START_NEW_TERM_DEF (); 

: «831 0898 1! 

; o36 0899 1 ! FORMAL PARAMETERS: 

; 85 0900 1! 

> 834 0901 1! NONE 

; 835 B28 1! 

; 836 0903 1) IMPLICIT INPUTS: 

: 837 0S04 1! | 

; 838 0905 1! AP Points to TPARSE parameter block 

: 839 0906 1! | 

: 840 0907 1 ! IMPLICIT OUTPUTS: 

: 841 0908 1! 

; re 0909 1! NONE 

; «84 0910 1! 

> 844 0911 1 =! COMPLETION STATUS: 

; 845 091 1! 

> 846 0913 1! SS$_NORMAL 

3; 847 0914 1! 

; 848 0915 1 ! SIDE EFFECTS: 

3; 849 0916 1! 

: 850 0917 1 ie- | 

; «851 0918 1 

3 S26 0919 BEGIN 

3 83 0920 BUILTIN 

: 4854 0921 CALLG, 

; 855 a4 t4 : 

; 856 092 

; 857 0924 AP : REF BLOCK C,BYTE); 

; 858 44 L ; ; 

: 859 0926 TERM INDEX : REF VECTOR C,BYTEJ, ! addr of terminal def index 

; 360 base CUR_INDEX_BYTE; ! first available byte 

: 866 3444 TERM_INDEX = .AP [PARAM _A_TERM_ INDEX) 

; 86 0930 CUR_INDEX_BYTE = .AP CPARAM_L_TERM_ INBEX SIZE); 

: 864 9931 

; 865 0335 '¢ 

: 866 09 i If there is a current terminal definition, then there must be two 

; He bate :_NAMEs with no intervening END. 

3 a6? baEs at -AP CPARAM_L_CUR_TERM_DEF] NEQ 0 | 

3 71 0938 SIGNAL_STOP peas ERRLIN 

: 87 939 SMGSSCURRENT_LINE, | 

: 87 0940 shies “MISENDSTA); 


un 
A2 
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SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1o~$e0-138% 0413388 AX=-11 Oi fegese ty 
1-004 START_NEW_TERM_DEF = Start of a term def, init 14-Sep-1984 210: SMGRTL.SRCJSMGSTATAB.B52;1 (1 


| 

; 874 941 3 | 
; 875 94 4 | 
; B28 94 ! Make an a in the terminal definition index. Since each | 7] 
; 87 0944 ! terminal definition begins on a block boundary, all we need to :] 
3 af8 29? store is the terminal name (a counted string) and the block number. | : 
: 880 94 | 3: 
; 881 $94 TERM_INDEX C.CUR_INDEX_BYTE) = .AP [PARAM_L_ SAVED, TOKENCNT]; | > | 
: Bb 0949 CUR_INDEX_BYTE =".CUR_INDEX_BYTE + 1; : 
> 884 0951 CHSMOVE (.AP FPARAM_L_SAVED_TOKENCNT , | :] 
; 885 093¢ .AP PARAM | SAVED TOKENSTR | 3] 
> 886 095 TERM_INDEX~C<CUR_INDEX BYTE); : | 
; «887 0954 CUR_INDEX_BYTE = .CUR_INDEX_BYTE + .AP CPARAM_L_SAVED_TOKENCNT]; 7] 
; 888 0955 ! copy counted name string into index ; } 
; 889 0956 TERM_INDEX C.CUR_INDEX_BYTE] = .SMGSSCURRENT_DEF_BLOCK; :] 
; aay 04H ! store block number : } 
; FF 0959 AP CPARAM_L_TERM_INDEX_SIZE] = .CUR_INDEX_BYTE + 1; ] 
; 89 0960 ! incr Size of terminal index 3] 
> 894 0961 § $j 
3; 895 096 '¢ , : 1 
; 896 0963 2 ! Update pointer into the current terminal definition. 3] 
: 897 0964 2 !- 3) 
; 898 0965 2 3: 
; 899 0966 2 AP CPARAM_L_CUR_TERM_DEF] = .AP CPARAM_A_CAP_PTRS); : 1 
3 0967 2 ' point to beginning of buffer 7] 
; 901 0968 2 | 2] 
; 902 0969 2 !+ 7] 
3; 9S 4444 2 Ready to fill in control fields which preceed the capability offsets. | : ! 
; 905 097 2 3 1 
: 9 097 BEGIN : 1 
; 907 0974 3 LOCAL : 1 
; 908 0975 3 CUR_TERM_DEF : REF VECTOR C,WORDJ, 2 
; 909 0976 3 SAVED_CAP_NUMBER, 7] 
; 910 0977 TYPE_FOUND; ; ! 
i 3le CUR_TERM_DEF = .AP CPARAM_L_CUR_TERM_DEF]; | i] 
: 914 CUR_TERM_DEF CSMGSK_TERM_DEF_ID_OFFSET] = SMGSK_TERM_DEF_ID; 3] 
; 4 ; T identify as a terminal definition : 
3 Hed : 

: 319 ! If this is a foreign terminal, then VMS will not assign ny | 
: 918 ! DT$_xx number to it. ALL the negative numbers are unused by $] 
; 919 ! the terminal driver, so assigning a unique negative number to : | 
; Pee i the terminal identifies it as one that is defined in TERMTABLE. : | 
3 ag) : The DCL commands SET and SHOW will make use of this number. 3 
; 958 SAVED_CAP_NUMBER = .AP [PARAM_L_CUR_CAP_NUMBER); : | 
; 924 AP CPARAM~L_CUR_CAP_NUMBER] ="SAGSK"VMS"TERMINAL NUMBER; = 3 | 
: 925 ' replace NAME with Eyes for writing data | 
3 4 § 3 ca (TYPE_FOUND = CALLG (.AP, SEARCH_KNOWN_TYPES)) 3 
: 928 4 ti 3} 
; 929 4 AP CTPASL_NUMBER] = .SMGSSNEXT_NEGATIVE_NUMBER; e 
: 930 4 CALLG (.AP, SMGSSFLUSH_NUMERICT; 2 


wOOOODOOO000O 


~ 
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; Routine Size: 


SMGSSTATEMENT_T banat tables for TERMTABLE statements 1h-se Sep-1984 AX-11 Bliss-32 V4.0-74 P 
1-004 START_NEW_TERM_DEF = Start of a term def, init 12: ~30071 382 93:18 68 SMGRTL.SRC Shes Yates 69251 one 7 
| 
4 SMGSSNEXT NEGATIVE_NUMBER = .SMGSSNEXT_NEGATIVE_NUMBER = 1; 
AP CPARAM_L_CUR_CAP_NUMBER] = » SAVED CAP_NUMBER : | 
T restore NAME | 
END; 
RETURN (SS$_NORMAL); | 
1 END; ! end of routine START_NEW_TERM_DEF 
O1FC 00000 START_NEW_TERM_DEF 
. WORD Save R2,R3,R4,R5,R6,R7,RB ; 0885 
58 00000000" EF of 6000 MOVAB SMGS$SNEXT NEGATIVE _NUMBER . R8 r 
56 44 AC 00 0000 MOVL OBtAP) . TERM_ INDEX 3: 0929 
57 40 AC DO 0000D MOVL 64 ( Ap) , CUR_INDEX_BYTE : 0930 
48 AC D5 00011 TSTL 72(A : 0936 
18 13 00014 BEQL 1$ : 
00000000G 00 9F 00016 PUSHAB SMG$_MISENDSTA ; 0938 
04 A& ODD OOODIC PUSHL SMGSSCURRENT_LINE 3; 0939 
01 DD OO001F PUSHL #1 : 0938 | 
000000006 00 9F 00021 PUSHAB SMG$_ERRLIN : 
000000006 00 04 FB 00027 CALLS #4, CIBSSTOP : 
746 54 AC 90 O00¢6 1$: MOVB B4(AP). (CUR INDEX_BYTE)+CTERM_INDEX] : 0948 
6746 58 BC 54 AC 28 000 MOVC3 pecan) ind Ae (TUR_INDEX_BYTE)- 3 0953 
57 54 AC CO OOO3A ADDL2 iN PY, CUR YTE 3 0954 
6746 0c A8& 90 OCO3E OvB SAGBSCORRENT DEF “BLOCK, (CUR_INDEX_BYTE)- ; 0956 
40 AC 01 A? 9E 00043 MOVAB 1(R7)> 64(AP) 3 0959 
48 AC 34 AC DO 00048 MOVL 32 (APS, 72(AP) > 0966 
50 48 AC DO 00040 MOVL 72(AP), CUR_TERM_DEF : 0979 
60 89 8F 98 00051 MOVZBW #137, (CUR_TERM DEF) ; 0981 
52 50 AC D0 00055 OVL 80(AP), SAVED_CAP_NUMBER : 0990 
50 2) E3 8F 9A 00059 MOVZBL #227, tA ; 0991 
FF42 6C FA 00056 CALLG (AP), SEARCH_KNOWN_TYPES ; 0993 
cf 50 D0 0006 MOVL RO, TYPE_FOUND ; 
4 50 E8 00066 BLBS RO, 2$ 3 
68 DO 00069 MOVL § SMGS$S$NEXT NEGATIVE NUMBER, 28(AP) > 0996 
0000v tf ¢ FA 9006p CALLG (AP), SMGSSFL ER : 0997 
68 Dd7 00072 DECL § SMGS$NEXT NEGATIVE NUMBER : 0998 
50 52 DO 00074 2$: MOVL SAVED CAP_NUMBER, 80(AP) ; 1001 | 
$5 01 pO 00078 MOVL #i, RO : 1005 
04 00078 RET : 1007 
124 bytes, Routine Base: _SMGS$CODE + 0255 
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es for Mad statements 
D_STATEMENT = sig 

T 
T 
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AZ 


nal UNRECSTA error eisaesYatas. y 2;1 


Tt "UNRECOGNIZED_STATEMENT = signal UNRECSTA error’ 


NE UNRECOGNIZEDUSTATEMENT = 


lee 
' FUNCTIONAL DESCRIPTION: 
We just found something that isn't one of the statements we know - 


complain. 


CALLING SEQUENCE: 
UNRECOGNIZED STATEMENT (); 
FORMAL PARAMETERS: 


NONE 


IMPLICIT INPUTS: 
AP Points to TPARSE parameter block 
IMPLICIT OUTPUTS: 


NONE 


COMPLETION STATUS: 


SS$_NORMAL 


SIDE EFFECTS: 


PLIES nt st tk th th th 


BEGIN 
BUILTIN 
MAP 

P : REF BLOCK {,BYTE); 
SIGNAL_STOP (SMG$_ERRLIN, 


. SMGS$CURRENT_LINE, 


SMGS_ UNRECSTA)~ 
END; 


1 
000000006 
000000006 00 4 


! end of routine UNRECOGNIZED_STATEMENT 
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YSMGRTL SRE SSAGSy ATSB BS251 


AX=1 


RET 


6 
Sep- 1986 13:10:08 


04 00010 


-SMGSCODE + 0201 


F statements 18 
gnal UNRECSTA error 1 


s for TERMTABL 
STATEMENT = s 
Routine Base: 


E table 
OGNIZED 
30 bytes, 


UNREC 


SMGSSTATEMENT_T TPARS 
; Routine Size: 


1 


'¢ 
! Move the previous definition to TERMTABLE.EXE. First write 
: out the capability pointers. 


abu 


BINARY_RAB = .AP CPARAM_A_BINARY_RAB); 


BINARY_RAB CRABSU_RSZ = SMGSK_CAP_PTRS SIZE; 
BINARY-RAB CRABSL-RBF) = 


BINARY_RAB CRABSL_BKT) 


pete tet te te 
abet 


Ww 


AP CPARAM_A_CAP_PTRS); 
' set up size & buffer addr 

. SMGSSCURRENT_DEF _BLOCK; 

! Set virtual block number 
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SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1o~$00-138% 9419388 AX-11 Oi legeas V4.0-74 
- ZERO_CUR_TERM_DEF = zero the current terminal d 14-Sep-1984 13:10: SMGRTL.SRCJSMGSTATAB.B52;1 
; 988 1053 1 XSBTTL "FERO.CUR TERR DEF - zero the current terminal definition pointer’ 
; 989 1054 1 ROUTINE ZERO-CUR-TERM-DEF = 
; 990 1055 1 
; «991 1 § 1 !e4 
$ 44 See : FUNCTIONAL DESCRIPTION: 
; 994 1059 1! We just encountered an END statement - mark that there is no 
; 995 1060 1! current terminal definition so that capabilities will not be 
3 338 ee : accepted before a new NAME statement is encountered. 
; 998 1908 1 ! CALLING SEQUENCE: 
; .999 1098 1! 
; 1000 1065 1 status = ZERO_CUR_TERM_DEF (); 
: 1001 1398 1! 
: 1O06 1067 1 ! FORMAL PARAMETERS: 
: 100 1068 1! 
; 1004 - 1069 1! NONE 
: 1005 1070 1! 
; 1006 1071 1°! IMPLICIT INPUTS: 
: 1007 1076 1! 
: 1008 1075 1! AP Points to TPARSE parameter block 
; 1009 1074 1! 
; 1010 1075 1 ! IMPLICIT OUTPUTS: 
: 1011 1076 1! 
: sig 1077 1! NONE 
3; 101 1078 1! 
3 1014 1079 1 =! COMPLETION STATUS: 
: 1015 1080 1! 
: 1016 1081 1! SS$_NORMAL 
: 1017 1a 1! 
: 1018 108 1 ! SIDE EFFECTS: 
3; 1019 1084 1! 
3 1930 1085 1 !-- 
3: 1021 1086 1 
; 1956 1087 $ BEGIN 
3: 102 1088 BUILTIN 
: 1024 1089 CALLG, 
3; 1025 1090 : 
: 1026 1091 
3 1027 1036 AP : REF BLOCK C,BYTE); 
: 1028 109 LOCAL ~ 
3; 1029 1094 BINARY_RAB : REF $RAB_DECL; ! point to RAB 
: 1030 1095 
: 1031 1998 
; 10 § 109 
3 1 1098 
3 1 1099 
3; 1 1100 
3 : : 0 
3 1 1 § 
3 1 110 
. § 110 
3 1 110 
3 : : 0 
s 1 1 $ 
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SWRITE (RAB = .BINARY_RAB) ; 


— et a ws 2 ss ts ss — 1 — 9 


SSTATEMENT_T 


23 


6 
les for TERMTABLE statements 15-Sep-1984 0413388 Ax-11 
ERM_DEF = zero the current terminal d 14-Sep-1984 13:10: SMGRTL 


14 
See if any data needs to be written out. 
CALLG (.AP, SMGSSWRITE_DATA); 
2 
2 
; 
2 
1 


SE 32 V4.0-74 P 7 SMC 
C sme 290 13), 


14 
Update the next available block number. 


SMGSSCURRENT_DEF BLOCK = ,SMGSSCURRENT_BLOCK; 
SMGSSCURRENT_BLOCK = . SMGS$CURRENT_DEF ~BLOCK + (SMG$K_CAP_PTRS_SIZE/512); 
' next data skips over pointers 


‘+ 
! Mark that there is no current definition. Init some things that will be 
reused by the next definition. 


AP CPARAM_L_CUR_TERM_DEF) = 0; 


CHSFILL (0, SMGSK_CAP_PTRS_SIZE, .AP CPARAM_A_CAP_PTRS]); 

' zero data offsets 
SMGSSDATA_OFFSET = SMGSK_CAP_PTRS_SIZE; 

: with Ist offset again 


! start 
CHSFILL (0, SMGSK_CAP_DATA_SIZE, .AP CPARAM_A_CAP_DATA]); 
' zero the data buffer 
AP CPARAM_L_CUR_DATA_BYTE] = .AP CPARAM_A_CAP_DATA]; 
' current data byte is Ist byte 
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RETURN (SS$_NORMAL) ; 
END; ! end of routine ZERO_CUR_TERM_DEF 


.EXTRN SYSSWRITE 
007C 00000 ZERO_CUR_TERM_DEF : 
“WORD 


Save R2,R3,R4,R5,R6 > 1054 
56 00000000" EF 9E 00002 MOVAB SMGSSCURRENT DEF BLOCK, R6 : 
50 30 AC DO 00009 MOVL 48 (AP), BINARY > 1101 
AO 0690 8F BO 0000 MOVW #1536, 34(BINARY RAB) > 1103 
A 4 Ac o9 9901 MOVL 52(APS, 40(BINARY_RAB) + 1104 
A 66 DO 0001 MOVL § SMGSSCURRENT_DEF_BLOCK, 56(BINARY_RAB) : 1106. 
50 DD O001C PUSHL : 1109 
01 FB 0015 CALLS #1 SYSSuRITE ; 
6C FA 000 CALLG (AP), SMGSSWRITE_DATA + 1115 
ag DO OO02A MOVL  SMGS$$CURRENT BLOCK, SMGS$SCURRENT_DEF_BLOCK ; 1134 
03 C1 0002E ADDL3 #3, _SMGSSCURRENT DEF _BLOCK, - 3 1122 | 
SMGSSCURRENT BLOCK ; | 
AC Be 00033 CLRL (AP) : 1139 | 
00 C 99 6 MOVCS #0, (SP), #0, #1536, a52(AP) : 1132 | 
Br 3 003F MOVZ7WL #1536, SMGSSDATA OrFsel : 1134 | 
0 2¢ 00045 movcS #0, (SP), #0, #5720, a56(AP) : 1136) 
BC 004¢ ; 


za LLL LL LLL LLL LLL LLL LOL DD DLO LD ew" 


oe 
- ore 
-—- eee 
eo 
ao e*ere 
a 
a 
—_— 
I 
| ae 
~w@ 
; nm « 
'@ 
od 
Fhe 
w<« i 
>, 
” 
NYO 
m= 
in 
or 
au 
—a 
—mNM 
mean 
| «i & 
-—-—- « 
-a a 
‘Oo wo 
<= fF 
«mn 
>w . 
“Oo 
ac 
iL 
oe . 
Num (OM 
NO WHR 
ao 
--— 
om 5.8 
o- >>. 
oow 
vvTr 2a 
ec 
oon 
--— 
i) 
aa 
oee 
res 
—~ ow 
-—- wero 
row 
os Sooo 
ooo 
~ ooo 
@ w 
c oowr w 
—- 200° Oo 
Ee 
= * 
eo Wwe 
ae «oO w 
» a 
cw oO 
ec vw 
ee aw ad 
eo.c mM o 
~~. = 
Le] ” 
~v i 
w 
Co 
wo od 
ae ev 
Ss vo yn 
= ° <«w 2 
ze 
cn e 
w v Cc 
| in | wT rod 
aS 
—u« = | 
Ow ° 
oe, [+4 
i 
oa 
Sau 
2re ~ 
@ 1 a) 
~a a 
2 we 
ww ~ 
w” 1 2 
zo 
<a ~ 
aw @ 


SAGSSTATEMENT.1 


; Routine Size: 


STATEMENT_T TPARSE tables for TERMTABLE statements sé -1984 AX-11 Bliss-32 V4.0-74 Pp 
aegoe SMOSSELANKS. OFF = Turn OFF bit to skip over bla 16- Sep-1984 93:18 68 SMGRTL.SRCISMGSTATAB.B 2:1 oe 23 
: 1079 1143 1 ZSBTTL ‘SMGSSBLANKS OFF - Tyre OFF bit to skip over ks' 
i 1144 1 GLOBAL ROUTINE SNGSSSLANKS. OF ee 
:4 1146 1 144 
; 19 7 Hi i FUNCTIONAL DESCRIPTION: 
: 1085 11449 1 Turns OFF a bit in the TPARSE parameter block which trol | 
: 1086 1% ? : } whether blanks are significant ” ee ot | 
; 1088 113¢ 1 i CALLING SEQUENCE: 
| a tee Et Et coat teense | 
Py : | 
: 1998 1189 4 | | 
: 1098 1138 13 — 
: 1096 1160 | IMPLICIT INPUTS: | 
; H+ 4 1136 ' ; AP Points to TPARSE parameter block | 
: 1100 i164 1! IMPLICIT OUTPUTS: 
> 1101 1165 1: 
1108 We) 1 | _ 
: 1104 1168 | COMPLETION STATUS: 
; 1106 1170 ; SS$_NORMAL | 
: 1108 1128 1 ' SIDE EFFECTS: 
> 1109 1173 1 
: 1110 1174 1 jee 
atte 1198 2 BEGIN 
: 1118 1197 BUILTIN 
St rt i 
2 116 1180 P : REF BLOCK C,BYTE); 
; 1118 118@ AP CTPASV_BLANKS) = 0; 
; 1120 1184 RETURN (SS$_NORMAL); 
: 1122 1186 1 END; ! end of routine SMGSS$BLANKS_OFF 
0090 00000 .ENTRY SMGSSBLANKS_OFF, Save nothing > 1144 
04 ac or 8 0002 BICB2 #1, 4(AP) > 1182 
50 1 DO 0006 MOVL #1, RO > 1184 
04 00009 RET > 1186 


Routine Size: 10 bytes, Routine Base: _SMGSCODE + 0346 
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i- SMGSSCOPY_CAP = Copy a string capability into T 14-Sep-1984 13:10: SMGRTL.SRCJSMGSTATAB.B52;1 (16) 


a 


1 ZSBTTL ‘SMGSSCOPY ‘rd - Copy a string capability into TERMTABLE.EXE’ 
= 


— 
| 
| 
; 1169 1 1 ‘% 
: 1170 1 ; * GLOBAL ROUTINE SMGSSCOPY_CA : | 
; 1171 1 1 : | 
: 178 1234 1 I+ : | 
3 W173 | 5 : FUNCTIONAL DESCRIPTION: | 
; 1175 1 ° 1} Copies a eerie Capability into TERMTABLE.EXE. It uses the | :] 
3 1178 : 3 : current capability number to determine where to copy the string. : 
; 1178 1240 1 ! CALLING SEQUENCE: : | 
; 1179 1041 1! i] 
; 1180 1 ig 1! status = SMGSSCOPY_CAP () 7] 
> 1181 12045 1/3 ee 
; 118¢ 1244 1 ! FORMAL PARAMETERS: :] 
; 118 1245 1! :] 
> 1184 1 46 1! NONE : | 
: 1185 1247 1! 3 1 
> 1186 1248 1°! IMPLICIT INPUTS: : | 
; 1187 1249 1! : | 
: 1188 1250 1! AP Points to TPARSE parameter block : 1 
3; 1189 1251 1! 3 } 
3; 1190 1 26 1 ! IMPLICIT OUTPUTS: ‘4 
3 1191 1253 1! 3] 
; 1198 1254 1! NONE : | 
3; 119 1255 1! 3] 
1194 1256 1 | COMPLETION STATUS: | 3 
3: 1195 1257 1! 3] 
3 1196 1258 1! SS$_NORMAL | 3 | 
3 1197 1523 . 3 $j 
3 1198 1260 1 ! SIDE EFFECTS: : 1 
: 1199 1261 1! | 
; 1200 1268 1 !-- | ; 1 
> 1201 1263 1 2] 
: 1e06 1264 BEGIN 41 
; 120 1265 BUILTIN $1 
: 1204 1266 CALLG, $ ] 
: 1205 3 24 P; 3 1 
: 1506 1268 MAP ‘4 
: 120 1269 AP : REF BLOCK C,BYTE); 31 
: 1208 1¢/0 3 | 
3 1209 1271 '¢ i] 
3 1210 1 8 ! If this is the name capedst ity, then we are etertins a new terminal 3) 
3 1312 : ? definition. Start a new block and set up some pointers. : 
: 121 1275 | 31 
2 a : , - CPARAM_L_CUR_CAP_NUMBER] EQL SMGS$K_NAME : } 
3 1 1 1278 CALLG (.AP, START_NEW_TERM_DEF); 3 | 
3: 121 1279 | 3 | 
3; 1218 1280 '¢ : 
3; 1219 1281 ! If this is mot the NAME capability and we have no pointers set up ® 
: 1220 1 Ht ! for the terminal definition, then NAME was not the first capability 3 | 
3; 1221 1 ! in the definition. Complain. F 
31 ; 1284 o 3 | 
: 1 1285 3 | 
3: 1224 1 § BEGIN 2 
3: 1225 1 BIND 3 


PRESS TATERENT T He 


s for ee Stetensore 
CAP = Copy a string capability into T 12: 


SRESSMeSTATAB 85251 


CAP_PTRS = .AP CPARAM_L_CUR_TERM_DEFJ 


If CAP_PTRS EOL 0 
SIGNAL_STOP (SMG$_MISTERNAM) ; 


“eve the capability data. The byte count is in the first byte and 


the actual data follows. 


as not to overwrite i 


: VECTOR Sel 


Part of the string ma alreedy be copied - append in this part so 


part of the sequence.) 


ee es os = = = 2 a ss SS os SS SS ss SY SY 


Mrorororofrrorn 
—OODWNANE WN (OO ODNOUN EW -"§ DODNO 


a ee ed ed ed od dD 


WAWAWIAAAA WWW omornonononononoreroronorn 
Oooo 


—— -“OOO000oO 
WR —OOONOUS 


: Routine Size: 


VANE EELS 


IF as CPARAM_L_SAVED_TOKENCNT] NEQ 0 
CALLG (.AP, SMGSSFLUSH_SAVED BUFFER); 


his can happen if escape or control are 


: copy string into data area 
END; ! end of BINDs scope 
AP CTPASV_BLANKS) = 0; ! out of string cap, skip over blanks 


RETURN (SS$_NORMAL) ; 
END; 


0000 00000 

00000228 ss BF 50 AC OI Beebe 

05 12 OQOO0A 

FEEA CF 6C FA 0000C 

48 AC D5 00011 

3 12 00014 

000000006 00 9F 00016 

000000006 00 01 FB Beoss 
54 AC b8 000 

05 13 00026 

COOOv CF 6C FA 00028 

04 AC 01 8A 0002D 

50 01 B0 00031 
4 000 


Routine Base: _SMGSCODE + 035A 


! end of routine SMGS$S$COPY_CAP 


ac ory CAP, Save nothing 
#555 


START, NEw, TERM, EF 


— 
bad 


™m 
wn 


SMGS$S$FLUSH_SAVED_BUFFER 
(AP) 


Ww 
wn 


MGSSTATEMENT_T TPARSE tables for TERMTABLE statements 18-Sep-19 & 03:13:88 AX=1 
SMGSSFLUSH_ARITHMETIC = flush arithmetic data t 14-Sep-1984 13:10: 


SN NSN NNN NNO Oo 


DONOUVESWN—"ODOODNOULSWN—OOO~n 


POPIPOPIPIPINIPINPIPNPONGPONINUPOPoPoMononononofponononononofponononofonorfny 
Co 00 0d 00 09 09 09 09 CD CO o 
_ 


WIwnr 


ee ee a ec a ae el ee ee a ee a ee a ee ce ee a ee ee a ee ee ee ee ee ee oe oe ed 
So 
_ 


PPIPIPOPOPOPONONIPIPOPOPODRIPOPIPNONINPYIY 9 tt tt a tt th st 


7 
Bli 


ZSBITL 'SMGSSFLUSH ARITHMETIC = flush arithmetic data to TERMTABLE' 
GLOBAL ROUTINE SMGSSFLUSH_ARITHMETIC = 


i FUNCTIONAL DESCRIPTION: 
: Because expressions don't follow the rules for numeric or string 
; data, this is a special routine to copy expression ‘tokens’ into 
; the data area. Usually we want to just write to the current data 
byte without regard for a size or type. 

CALLING SEQUENCE: 

} status = SMGSSFLUSH_ARITHMETIC () 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

AP Points to TPARSE parameter block 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION STATUS: 

SS$_NORMAL 

SIDE EFFECTS: 

' 


BEGIN 

BUILTIN 
CALLG, 
AP; 


Pp 
AP : REF BLOCK C,BYTE); 

LOCAL 
START_COPY : REF VECTOR C,BYTE,SIGNEDJ; 


SCHECK_BUFFER_OVERFLOW (.AP CPARAM_L_SAVED TOKENCNTJ); 
' make sure this will fit in the buffer 
START_COPY = .AP CPARAM_L_CUR_DATA_BYTE); 


CHSMOVE (.AP [PARAM L_SAVED_TOKENCNT], 
AP pare -t - Hoegeeseendes e 
START_COPY(0}); 
' move the data 
AP CPARAM_L_CUR_DATA_BYTE] = .AP PARAM L_CUR DATA BYTE] + 
.AP CPARAM~L-SAVED_TORENCNT); 
! update next available byte 
SMGSSDATA_OFFSET = .SMGSSDATA_OFFSET + .AP CPARAM_L_SAVED_TOKENCNT); 
' update next available data offset 


tn a’ 


1 ate! ot Ped 
SMGRTL.SRCJSMGSTATAB.B32;1 


a a a ee ee re er Pe ee ee ee ee eS SS 


7 
SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1b-sep-19 4 4 91: 13: 8 AX-11 Bliss-32 Vi Gerke Page bs 
1-004 SMGSSFLUSH_ARITHMETIC = flush arithmetic data t 14-Sep-1984 SMGRTL.SRCJSMGSTATAB.B32; 1 (17) | 
: 1310 1371 SUPDATE_ARITH_STRING_SIZE (.AP CPARAM_L_SAVED_TOKENCNT)); : 3 
: 1311 1 es '“update Size of expression 3 7 
31 \¢ 137 b MM. L_SAVED -TOKENCNT] 2 0: Se 
: 131 1374 AP PARAM-L-SAVED-TOKENSTRJ = 0; 31 
> 1314 1375 ' re-init 3 7 
> 1315 1 6 RETURN (SS$_NORMAL); 1 
: 1316 137 1 
: 1317 1378 ; } 
- 
4 
2 
003¢ 00000 .ENTRY SNGSSFLUSH ARITHMETIC, Save R2,R3,R4,R5 : 1315 31 
50 38 = AC 6¢ AC ¢ 9000¢ SUBL3 76(AP), 56TAP) : 1358 31 
50 1400 CO 9E 0000 MOVAB 5120(R6) REMAINING BYTES : 71 
50 54 AC 01 0000D CMPL B4(AP), REMAINING_BYTES : 71 
05 15 90011 BLEQ 1$ : :1 
0000v CF 6C FA 00013 CALLG (AP), SMGS$WRITE_DATA : 3:1 
50 4C AC DO 00018 1$: OVL 76(AP), START_COPY + 1360 31 
60 58 BC 54 AC 28 9001 MOVC3 84(AP), @88(AP), (START_COPY) + 1364 
c mw 54 ac CO 0002 ADDL B4 (AP), 76 (AP) + 1367 
00000000" EF 54 aC CO 000 ADDL 4(AP), SMGSSDATA_OFFSET : 1369 
50 50 =A bd 0002F MOVL  80(AP), RO > 1371 
50 48 BC40 3C 00033 MOVZWL a@72(APSCROJ, CAP_SIZE ; 
50 48 AC CO 00038 ADDL2 72¢AP), CAP_SIZ : 
60 54 AC 82 0003C SUBB2  84(AP), (CAP_SIZE) : 
54 OAC C7 90049 CLRQ  84(AP) : 1373 
50 01 D0 0004 MOVL #1, RO > 1378 
04 00046 RET : 1378 


; Routine Size: 71 bytes, Routine Base: _SMGSCODE + 038F 


| 
1 END; ! end of routine SMGS$FLUSH_ARITHMETIC 
| 
| 
| 


$ 


re 
De 4) 


TATEMENT_T TPARSE tables for TERMTABLE statements 18 
SMGSSFLUSH_NUMERIC = flush number to data area 14- 


4 ZSBTTL ‘SMGSSFLUSH_NUMERIC = flush number t 
; 
4 
85 
86 
87 
88 
89 
90 
4 
38 


comm Ad 


GLOBAL ROUTINE SMGSSFLUSH_NUMERIC = 
' 


144 
} FUNCTIONAL DESCRIPTION: 


Copies a boolean or numeric value i 
current capability number to determ 


' 

' 

! 

{ CALLING SEQUENCE: 

status = SMGSS$FLUSH_NUMERIC () 

i FORMAL PARAMETERS: 

: NONE 

{ IMPLICIT INPUTS: 

; AP Points to TPARSE parameter 
i IMPLICIT OUTPUTS: 

! 
' 
! 
' 
i] 
' 
' 
! 
' 


WNAWANWWNtinonononofepefereoron 


AME WNM § O OONAWE WN OD ODNOULSWN (OO DNAUSWN OO” 


NONE 
i COMPLETION STATUS: 
$S$_NORMAL 
i SIDE EFFECTS: 


n : REF BLOCK C,BYTE); 


L 
CUR_TERM_DEF : REF VECTOR C,WORD), 
START_CAP_STRING : REF VECTOR C[,BYT 


CUR TERM_DEF = .AP CPARAM_L_CUR_TERM_DE 


EA AANA AANA AAA AAAA AAA AAA AA AA AA MAM AA AAA AMAA 
QUNMNMMNAMAMN EB BRR ERR ERE 


Ww 
o 
MEW —O0aOnN 


CUR TERM_DEF EQL 0 
SIGNAL_STOP (SMGS_MISTERNAM); ! ¢ 
SCHECK_BUFFER_OVERFLOW (6); tom 


CUR_TERM_DEF C.AP CPARAM_L_CUR_CAP_NUMB 
s 


Seeeey 


SMGSSDATA_OFFSET = . SMGSSDATA_OFFSET + 
; 

START_CAP_STRING = .AP CPARAM_L_CUR_DAT 

START_CAP_STRING (0) = 4; 


ee ee ee eee 
ee ee a ee ee ee ee Dd ed ed dd dd od dd 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
r4 
2 CALLG, 
2 AP 
2 


MEWN—O0CO~ 


WANA 
ANN 


7 
Beer 18be 3:10:08 — Vehcrte saeisnesYaten oS2s1 


© data area' 


nto TERMTABLE.EXE. It uses the 
ine where to copy it. 


block 


E,SIGNEDJ; 
Fl; 


omplain if no current def 
ake sure there's room in buffer 


ERJ]] = .SMGSSDATA_OFFSET; 
et cap ptr to data offset 
gente yo next offset 
BYTE); : 
oint to next available data byte 
ength 


Page 45 


(18) 


| 


— 
a 


a a 


ll ll ll el ll el el el el el el el el el el elt elt lt ll ll lt ll ll ll ll ll ll ll A 


7 
SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1bese 1984 AX-11 Bliss-32 V4.0-74 2 4 
i- SMGSSFLUSH_NUMERIC = flush number to data area 14- Sep-1984 03:18 ‘68 SMGRTL® SRC SMGSTATAB. B32;1 ad 


ig CHSMOVE (4, AP CTPASL_NUMBER], START yor esc (2]); 


1 

14 AP CPARAM_L_CUR_DATA_BYTE] = .AP [PARAMS & *CUR _DATA_BYTE] + 6; 

1t78 ! update next sealtable’ data byte 
1223 RETURN (SS$_NORMAL) ; 

1208 1 END; ! end of routine SMGSSFLUSH_NUMERIC 


000¢ 00000 .ENTRY SMGSSFLUSH NUMERIC Save R2,R3 : 

53 00000009" EF 9E 00002 MOVAB SMOSSDATA OFFSET, R : 

52 4 AC 00 00009 MOVL 2(AP), COR_T TERM DEF : 

0D 12 00000 BNEQ ~=«'1$ : 

000000006 00 9F O000F PUSHAB SMG$_MISTERNAM : 

000000006 00 01 Fe 00015 CALLS "1, CIBSSTOP : 
0 38 = AC 4c 6AC CU 9001¢ 1$: SUBL3 76(AP), 56(AP), RO : 
50 1400 CO 9E 000 5 MOVAB 5120(R6) REMAINING _BYTES ; 

06 50 01 000 CMPL = REMA GAINING _BYTES, #67 : 

05 18 O0002A BGEQ © 2$ F 

0000v CF 6C FA 000¢¢ CALLG (AP), SMGSS$WRITE_DATA : 

50 50 aC DO 00031 2$: MOVL  80(AP) : 

6240 63 BO 00035 MOVW § SMGSSDATA_OFFSET, (CUR_TERM_DEF)CROJ : 

63 06 CO 00039 ADDL2 , SMGSSDATA_OFFSET- ; 

50 4C AC 00 0003C MOVL (AP), START_CAP_STRING 3 

60 04 90 90049 MOVE = #4, (STA CAP STR : 

02 A0 ic AC DO 0004 MOVL 28 (AP) sistant. CAP_STRING) 3 

4C AC 06 CO 00048 ADDL2 , 76CAP : 

50 01 DO 0004C MOVL #1, ; 

04 0004F RET : 


; Routine Size: 80 bytes, Routine Base: _SMGSCODE + 03D6 


Ty 
SMGSSTATEMENT_T TeAtee tables for TERMTABLE statements 1 ~pe0n 1386 9418 Se AX-1 
i- SMGSSFLUSH_SAVED_BUFFER = flush saved token to 14-Sep-1984 13:10: 


‘ 
ps 


1 Oh fegeze V4.0-74 
SMGRTL.SRCJSMGSTATAB.B52;1 


] 

| 
85 1444 1 XSBITL °SMGSSELUSH SAVED BUFFER = flush saved token to data buffer’ | 
8 ber GLOBAL ROUTINE SMGSSFLUSA_SAVED_BUFFER = 
88 144 re | 
8 FUNCTIONAL DESCRIPTION: | 
91 Append the saved token into the data area for the current capability. | 
3g We must append the data rather than just copying it because tokens are 
a7 inserted as they are discovered, so this may not be the first. 
8? CALLING SEQUENCE: 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
AP Points to TPARSE parameter block 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL 
SIDE EFFECTS: 


status = SMGSSFLUSH_SAVED_BUFFER () 


Uw 


AP : REF BLOCK C,BYTE); 
IF AP CPARAM_L_SAVED_TOKENCNT) EQL 0 


WAAAINVIVLVNNNS SO ARON UOS SSOP OP OLS S2S 


WN 0 OONOAUEWN “OC OONOUSWN—O0OO~n 


OOO OO OOOO 2000 0000 09 009 09 SINISE NS NNN NIAAA AAAAAAA MMIII & 


SSS VS AR a SS RNS ARUN HOSONOUEUINI—ODG0 Wn PON > Ooo Ws Wr—OO° 


a ea a a a 8 nd nd ed od od = 


Fe oe oe oe oF oF ot ot ot ot ot ot et tt et ee ek kt et et et 
PHAN AANA NLAAIGIPD IPO NONPINIDININIIII 2 3 tt a 9 9 PY SS SS SS SS 
= ow 
crm 
—<c 
onAZz 
& 


Ba Be Se Se Oe Be Oe Be Se Se Fe Se Se Ge Se Ge Se Ge Se Ge Ge Ge Se Gs Se Ge Ge Ge Gs Ge Ge Se Ge Ge Ge FH Ge SH Ge SH Se Se Se SESE Se Se asses Se Se Se SeSesease 
ee ee ee S| 
PES eS ee eee ee ee ot ot te eee ee 


RETURN (SS$_NORMAL) ! no string to copy 
eceue ! copy saved string 
cafAPePTRS = .AP CPARAM_L_CUR_TERM_DEF] : VECTOR C,WORD]; 
5 FIRST : INITIAL (0) 
36 START_CAP_STRING : REF VECTOR C.BYTE,SIGNED), 
3 SIZE_TYPE™: INITIAL (0); 
39 9 SCHECK_BUFFER_OVERFLOW (.AP CPARAM_L_SAVED_TOKENCNT)); . 
40 9 ! make surg there's room in the buffer 
41 0 IF .CAP_PTRS C.AP CPARAM_L_CUR_CAP_NUMBER]] NEQ 


? 
SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1e-se 1984 01:19: AX-11 Bliss-3 -74 
1- SMGSSFLUSH_SAVED_BUFFER = flash saved token to 107 368-1$8e 93318568 SMGRTL” SR RC SmGstA ith B32;1 Page gy 


144 01 THEN 
1ee7 08 BEGIN 
a Be . “Not start of the capability string. 
te} 06 START_CAP_STRING = .AP CPARAM_L_CUR_TERM_DEF] + 
448 8 -CAP_PTRS C.AP CPARAM_L_CUR_CAP_NUMBERJ]; 
449 508 END 
e9 09 ELSE 
38 First byte of capability string. Set offset pointer. 
i BEGIN 
55 FIRST = 1; 
56 START CAP’ STRING = .AP CPARAM_L_CUR_DATA_BYTE]); 
4 cars PTRS T.AF CPARAM_ L_CUR_CAP_NUMBER]] “= .SMGSSDATA_OFFSET; 
59 
¢ es CAP_STRING C1] NEQ SMGSK_ARITH_STRING 
6¢ BEGIN 
6 CHSMOVE (. ae PARAM_L_SAVED_TOKENCNT), 


PARAM-L-SAVED-TOKENSTR 
—_ START. CAP_STRING C2] + ABS (.START_CAP_STRING [0])); 


BEGIN 


IND 
EMBEDDED_STRING = (START_CAP_STRING (2 
ABS spt TART CAP_ STR 
VECTOR C BYTE: 
subtract ish pype 
EMBEDDED_STRING (CO .AP CPARAM_L_ SAVED. TOKENCNTJ; 
EMBEDDED, STRING (1 = 0; positive count indicates string 
CHSMOVE 7. a PARAM L _SAVED _TOKENCNTH, 
PARAM_L- SAVED = LOKENSTRI, 
EMBEDDED. STRING (23); 
te TYPE = 2; 


SINCR_CAP_STRING_SIZE ((.AP CPARAM_L re TOKENCNT] + .SIZE_TYPE), 
START CAP "STRIN (03); 
! nodaae ; bytes in string 


SINCR_CUR_DATA_BYTE ((.AP CPARAM. L_SAVED_TOKENCNT]) + .SIZE_TYPE), .FIRST); 
T macro fo update next avatlable. 
! data byte, data offset | 


| 
| 
| 
| 
| 

ing | 

ING (0J) = 2) 

hd 
| 


AP CPARAM_L_SAVED_TOKENCNT 
AP CPARAM_L_SAVED_TOKENSTR 


*! pe-init to no saved string 
SMGSSMASK_ADR EQL SMG$K_FAO_STRING 


OOO OO 0.0000 00 0000 00 00 09 0909 I NINN NINN NO OOOO 
CSS Ree SSR SRN ES Sao Uru —ODe we 
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; Routine Size: 246 bytes, Routine Base: _SMGSCODE + 0426 


a 
SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1b-s¢ -Sep- :19 AX-11 Bliss-32 v4.0 Page 50 $ 
i- SMGSS$FLUSH_SAVED_BUFFER - Bote saved token to 1 set O4:18 10 ‘68 SMGRTL SRC ISMGSTATAB. ys 2:1 . (1s 1 
56 OC 73 7$: ADDL2 START_CAP_STRING, RO 3 1529 ; 
38 § § 7 MOVL (RI), "RB - ; 1383 F 
6 7 MOVZBW RB, (R9) : ; 
02 ad 58 «BC 7 MOVC3 RB, @B8(AP), 2(RO) : 1537 ; 
A D MOVL #2, SIZE_TYPE : 1338 ; 
D 8$ TSTL =o : 154 : 
A 1 0 BGEQ )«6—s«é9S : ; 
50 58 A ct 9 ADDL3 SIZE ay iPe R8 : : 
66 0 0080 SUBBS oR , (Start Op. STRING) : ; 
11 00091 BRB 1 1. : ; 
50 58 A ci 0095 9$: ADDL3 SIZE_TYPE ; : 
AA 27 0 81 909 ADDB3 RO, R7, (STARE CAP STRING) : : 
0 4C AC CO 00098 108: ADDL RR tAPS. t 1545 
05 5B E9 O09F BLBC FIRST, 11$ : 
1 02 DO OO0A MOVL 3 ri : 
0 11 000A BRB 12$ ; 
1 D4 OOOA7 118: CLRL. RI : 
4C AC 50 51 C1 OO0A9 12$: ADDL3 = R1, RO, 6(AP) : 
51 69 SA CI OAE ADDL3 SIZE_TYPE, (R9), R1 : 
51 00000000' EF CO 0008 ADDL2 SMGS$SDATA_OFF Set, R1 : 
05 B €E9 00089 BLBC FIRST 1 138 ; 
50 02 DbO 000BC MOVL #2, RO ; 
02 11 OOOBF BRB 148 : 
50 04 900¢1 13$: CLRL_ — RO ; 
00000000" EF 51 50 C1 000C3 14$: ADDL3 RO, R1, SMGSS$DATA_OFFSET : 
69 04 000CB CLRL (R9) : 1549 
58 AC D4 000CD CLRL = BBC AP) : 1550 
FFFFFFFF 8F 00000000' EF D1 00000 CMPL SNGSSMASK _ADR, #=1 : 1553 
15 N2 00008 BNEQ 16$ F 
66 95 000DD TSTB = (START_CAP_STRING) : 1560 
03 15 OOODF BLEQ 15$ : 
66 3 3 000E1 MNEGB (START_CAP_STRING), (START_CAP_STRING) : 1562 
01 A6 00000000' EF 90 O00E4 15$:  MOVB § SMGS$$MASK_ADR, Nee tant CAP~ STRING) + 1564 
00000000" EF 04 OOOEC CLRL § SMGSSMASK-ADR : 1566 
50 01 DO OO0F2 16$:  MOVL #1, RO : 1572 
04 000FS RET : 1574 
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Les for TERMTABLE statements tb-sec-19 4 01:19: AX-11 Bliss-32 V4.0-74 
NG_END = signal aissing end statement 1 Hat 93310:88 SMGRTL.SRCISMGSTATAB.B 2:1 
BITL ‘SMGSSMISSING_END = signal missi d st “ 
OBAL ROUTINE SMGSSMISSING_END = re re ee 


+4 
} FUNCTIONAL DESCRIPTION: 


Signal that some other statement occurred where there should have 
been an END statement. 


CALLING SEQUENCE: 


SMGSSMISSING_END () 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

AP Points to TPARSE parameter block 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 

SS$_NORMAL 

SIDE EFFECTS: 


BEGIN 
BUILTIN 
AP; 
MAP 
AP : REF BLOCK C,BYTE); 


SIGNAL_STOP (SMG$_ERRLIN 
1, .SMGS$CURRENT_LINE, 
SMG$_MISENDSTA) 


END; ! end of routine SMGSSMISSING_END 
0000 68 ENTRY SMGSSMISSING_END, Save nothing 
00000000G 00 9F 0000 PUSHAB SMG$_MISENDSTA 
00000000" EF ODD 0 PUSHL SMGSSCURRENT_LINE 
1 pp 3 PUSHL #1 
00000000G 00 9F 1 PUSHAB SMG$_ERRLIN 
000000006 00 & fe Baie cates #4, CIBSSTOP 


Pete te Ge Se te te 


; SSTATEMENT_T hae E taples for TERMTABLE statements 1b-se0-1984 04:13:88 AX-11 biegeae 


Page 52 a 
SSMISSING_END = signal missing end statement 1 SMGRT is SmestATaa. B82: 37 . (285 


; Routine Size: 30 bytes, Routine Base: _SMGSCODE + 051C 
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SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 1-Se -1984 01:19: AX-11 Bliss-32 V4.0-74 © 3 SC 
1- SMGSSNEXT_RECORD = Get next record from TERMTAB 12-8657 382 93:18:68 SMGRTL.SRCISMGSTATAB.B 2;1 29 333 
63 6 ZSBITL 'SMGSSNEXT_RECORD = Get next record from TERMTABLE.TXT' 
6 é GLOBAL ROUTING SMGSENEXT RECORDS 
4] 6 'o¢ 
of ° FUNCTIONAL DESCRIPTION: 
$8 ? Gets the next record to be parsed from TERMTABLE.TXT. 
4 6 | CALLING SEQUENCE: 
18 6 status = SMGSS$NEXT_RECORD () 
75 6 i FORMAL PARAMETERS: 
76 6 ! 
77 rt ! NONE 
78 6 ! 
79 63 ! IMPLICIT INPUTS: 
80 63 ! 
4 o } AP Poinzs to TPARSE parameter block 
8s 64 } IMPLICIT OUTPUTS: 
85 64 i the string pointer and ney count in the TPARSE 
er parameter block are updated to point to the new record 

COMPLETION STATUS: 

SS$_NORMAL 

' 


: SIDE EFFECTS: 


BEGIN 
eaad v1 


oowonowvovnowvond 
SSLEAEANLSSELES 


AP : REF BLOCK C,BYTE); 
LOCAL 

TXT_RAB_: REF $RAB_DECL, 

RMS” STATUS; 
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04 

05 '+ 

06 ' Get a record from TERMTABLE.TXT. Use the private parameters 
34 appended to the TPARSE parameter block to find the RAB. 

09 : 

10 TXT_RAB = .AP CPARAM_A_TXT_RAB]; 

i 

1 BEGIN 

\3 RMS_STATUS = $GET (RAB = .TXT_RAB); 

16 UNTIL .RMS_STATUS NEQ RMS$_RSA; 
18 IF NOT (.RMS_STATUS) AND 

19 -RMS_STATOS NEQ RMS$_EOF 
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SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 16-Sep-1984 01:19: AX-11 Bliss-32 V4.0-74 P 5 
1-004 SMGS$NEXT_RECORD = Get next record from TERMTAB 12-808- 13s 94:18:88 SMGRTL.SRCISMGSTATAB.B 2:1 age 53) 
OS3A .BLKB ; 
00 MEST P.AAB: .BYTE 6 : : 
.EXTRN SYSS$GET : 
001¢ 00000 .ENTRY SMGSSNEXT_RECORD, Save R2,R3,R4 : 1621 ; 
54 000000006 99 9 0008 MOVA LIBSSTOP,~R4 : 3 
10 ¢2 0000 SUBL2 #16 : ; 
28 AC D 6 0 MOVL  4O(AP), TXT_RAB + 1667 : 
52 DD 00010 1$ PUSHL TXT_R + 1671 ; 
000000006 99 Q1 FB 001 CALLS #1, ~SYSSGET : : 
5 9 DO 0001 MOVL RO, RMS_STATUS : : 
000182DA BF 5 D4 0001¢ CMPL RMS _STATUS, #99034 > 1673 ; 
OE 53 ta 00025 BLBS §_RMS_STATUS, 2$ + 1675 ; 
0001827A BF 53 01 00028 CMPL § RMS"STATUS, #98938 + 1676 ; 
03 13 0002F BEQL 2$ : ; 
3 pd 00031 PUSHL RMS_STATUS + 1678 ; 
64 01 FB 90035 CALLS #1, LIB$STOP : : 
0001827A BF 53 D1 00036 2s: CMPL RMS_STATUS, #98938 + 1684 ; 
58 13 00030 BEQL $ : : 
00000000' EF D6 0003F INCL  SMG$$SCURRENT_LINE > 1693 ; 
6E O10EOOFF F 00 00045 MOVL #17694975, ORIG STRING 3: 1703 3 
04 AE 5c 86 ACC 0004C MOVL 9g (AP) ORIG_STRING+4 + 1704 ; 
OA AE 0108 8F BO 00051 MOVW #270, §RC_STR+2 + 1707 : 
08 AE 2 Ag BO 00057 MOVW  § 34(TXT_RAB), SRC_STR : 1708 ; 
OC AE 28 A2 00 0005¢ MOVL  40(TXT“RAB). SRCTSTR+4 : 1709 : 
08 AE OF 90061 PUSHAB SRC_STR : 1711 ; 
04 AE 9F 00064 PUSHAB ORIG_STRING 3 3 
000000006 00 08 FB 00067 CALLS #2, STRSCOPY_DXx : : 
05 50 £8 OO06E BLBS § COPY_STATUS,~3$ : ; 
50 DD 00071 PUSHL COPY~STATU : 1713 
64 01 FB 00073 CALLS #1, CIBS$STOP ; 
08 AE 9F 00076 38: PUSHAB SRC_STR : 1715 
OC AE 9F 00079 PUSHAB SRC~STR ; 
000000006 00 0 FB o907¢ CALLS #2, ~STRSUPCASE ; 
05 50 €8 0008 BLBS _-:UP_STATUS, 4$ ; 
50 DD 00086 PUSHL UPTSTATUS : 1717 
64 01 FB 00088 CALLS #17 LIBS$STOP ; 
oc Ac Oc AE DO 00088 4s: MOVL  SRC_STR+4, 12(AP) : 1719 
08 Ac 08 AE 3¢ 00 MOV2WL SRC"STR, 8(AP) : 1720 
0A 11 0009 BRB + 1684 
0c Ac FF64 CF 9E 00097 S$: MOVAB P.AAB, 12(AP) + 1727 
08 Ac 01 D0 0009D MOVL #1, BCAP) : 1728 
50 01 D O00A1 63: MOVL #1. RO : 1731 
04 000A4 RET : 1733 | 
3; Routine Size: 165 bytes, Routine Base: _SMGSCODE + 0530 | 
| 
| 


] 
8 

SMGSSTATEMENT_T ert tables for TERMTABLE statements 16-Sep-1984 9413388 AX-11 Bliss-32 V4.0-74 Page 56 

1-004 SMGSSSAVE_TOKEN_STRING = Save count & pointer t 14-Sep-1984 13:10: SMGRTL.SRCJSMGSTATAB.B52°1 (22) 

; 1678 1734 1 XSBITL ‘SMGSSSAVE TOKEN STRING = Save count & pointer to current token’ : 
: 1679 1735 1 GLOBAL ROUTINE SMGSS$SAVE_TOKEN_STRING = ; 
Hep UB La peel 
; 168¢ W738 | | FUNCTIONAL DESCRIPTION: | ; 
> 1684 1740 1! Save a pointer to the start of the capability string, and | : 
3 iene Ire) ’ maintain a count of the characters. : 
; 1687 1248 ; CALLING SEQUENCE: ; 
: 1689 W745 1 | status = SAVE_TOKEN_STRING () 
: 1691 174? | i FORMAL PARAMETERS: | ; 
; 1996 1748 1! | ; 
aim i Pet 
; 1695 Wet i IMPLICIT INPUTS: ; 
: +944 1788 : ; AP Points to TPARSE parameter block : 
: 1699 1755 1 | IMPLICIT OUTPUTS: 
: 1700 1756 1! : 
ey i pes al 
; 1708 1738 COMPLETION STATUS: | : 
: 1705 ey 1 | $S$_NORMAL | 
: 1707 1968 | | SIDE EFFECTS: ; 
: 1708 1764 1! : 
: 1709 1765 1 !-- | : 
: 1710 1708 1 : 
: 1711 176 BEGIN : 
; Har 1768 BUILTIN : 
Sha 1556 map ; 
: 1715 1771 AP : REF BLOCK [,BYTE); | ; 
: 1798 3 16 | ; 
: 1718 1774 i TPARSE maintains a pointer to the current character but what we need ; 
3 1719 1775 ! is all the characters between quotes - they are the current capability : 
: 1720 1726 ! string. So we maintain our own pointer into the TPARSE input string. - 
3 1721 177 ' (COPY_CAP will use this information to gopy the current capability. | : 
: 17 § 1778 ' COPY_TAP also re-initializes the count & pointer to zero after it does : 
ie te pp eee pal 
: 1725 1781 i Note that we store a pointer to the user's original spring. not the 3 
: 1726 17 4 ' string that we parsed. This is because the parse string has been : 
; i? , 4 ? : upcased but we need to preserve lower case letters in an escape sequence. : 
: 1729 1785 i For a numeric string, there are no quotes delimiting the string - we : 
; 1730 17 § ! will be storing all digits. ‘ 
P82 1783 8 
: 17 § 17 § IF .AP CPARAM_L_SAVED_TOKENSTR] EQL 0 | ; 
: 17 1790 THEN | 3 


TATEMENT_T TPARSE tables for TERMTABLE statements hes Sep ~1386 04:13 ‘66 AX-11 BLi ists =-32 V4.0-74 Page 3 
"00 SMGSSSAVE_TOKEN_STRING = Save count & pointer t 14-Sep :10: SMGRTL™ SRC SHGSTA TAB.B52;1 (2 


: 1735 1791 ! 
3 17 8 1780 “only save the pointer the first time we're called. 
3 17 179 
: 1738 1794 BEGIN | 
; 1739 1795 LOCAL 
; 1740 1738 TXT_RAB : REF $RAB_DECL, 
3: 1741 179 OFFSET; 
: ire 1798 
3 174 1799 TXT_RAB = .AP CPARAM_A_TXT_RAB); 
: 1744 1e0y OFFSET = AP CTPASL _TORENPTRJ - , TXT Psat CRABSL_RBFJ; 
: 1745 1801 rt mpute e offset into parsed buffer 
; 1768 1306 AP CPARAM_L_SAVED_TOKENSTR] = we PARAM_L_ORIG_TXT OFFSET; 
: te 1804 ees 
: 1749 1805 AP CPARAM_L_SAVED_TOKENCNT] = -AP P FrAnart L_SAVED_TOKENCNT] + 
; 1756 1806 TPASL_ TOKENCNTJ; 
3; 1751 1807 y/ 
3 1736 1808 RETURN (SS$_NORMAL); 
s 175 1809 
3 1754 1610 1 END; ! end of routine SMGSSSAVE_TOKEN_STRING 
0000 00000 ENTRY SMGSS$SAVE_TOKEN_STRING, Save nothing : 1735 
58 AC D5 st TSTL 88 (AP) : 1789 
10 12 0000 BNEQ 1$ 3 
50 28 AC 9 00007 MOVL 40(AP), TXT_RAB : 1799 
50 14 AC 28 AO ¢ BhOTe SUBL3 40(TXT_RAB), 20(AP), OFFSET ; 1800 
58 AC 5¢ BC40 9E 00011 MOV a92(APYLOFFSETI, 88(AP) > 1802 
54 AC 10 AC CO 00017 1$ ADDL2 16(AP), 84(AP) ; 1806 
50 01 pO O001C MOVL #1, RO ; 1808 
04 OOO1F RET ; 1810 


; Routine Size: 32 bytes, Routine Base: _SMGSCODE + 05E2 
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GSSTATEMENT_T TPARSE tables for TERMTABLE Statenents 19-30-1386 0413388 AX-11 Oi lege ze V4.0-74 
004 SMGSSSTORE_CAP_MASK = Store the capability mask 14-Sep-1984 210: SMGRTL.SRCJSMGSTATAB.B52;1 


; 1756 181] 1 XSBTTL 'SMGSSSTORE_CAP_MASK = Store the capability mask’ 

; 1757 1 \¢ 1 GLOBAL ROUTINE SMGSS$STORE_CAP_MASK = 

: 1758 1815 1 

: 1759 1814 1 !44 

3 1299 HE : FUNCTIONAL DESCRIPTION: 

3 1766 1 9 1! The gy mask is actually the capability number. We 
: 176 1818 1! need to remember this so that we store the data in the correct 
3 1764 1819 1! Location. 

: 1765 1820 1! 

: 1766 1821 1 ! CALLING SEQUENCE: 

: 1767 \3 ¢ 7% 

: 1768 1 . 

; 1769 1824 1! status = SMGS$STORE_CAP_MASK () 

: 1770 1825 1! 

3 1771 1826 1 ! FORMAL PARAMETERS: 

3 aes 1827 1! 

3 177 1828 1! NONE 

3 1774 1862 1! 

3: 1775 1830 1 ! IMPLICIT INPUTS: 

3: 1776 1831 1! 

: 1777 1838 1! AP Points to TPARSE parameter block 

: 1778 1835 1! 

s i779 1834 1 ! IMPLICIT OUTPUTS: 

; 1780 1835 1! 

3; 1781 1836 1! NONE 

: 1782 1837 1! 

3; 1783 1838 1 =! COMPLETION STATUS: 

> 1784 1839 1! 

3; 1785 1840 1! SS$_NORMAL 

3; 1786 1841 1! 

: 1787 1as6 1 ! SIDE EFFECTS: 

: 1788 1843 1! 

3 1789 1844 1 !-- 

3; 1790 1845 1 

: 1791 1846 2 BEGIN 

: 16 1847 2 BUILTIN 

3; 179 1848 § AP; 

3 1794 1849 MAP 

3 1795 1850 2 AP : REF BLOCK C,BYTE); 

: 1796 1851 

3: 1797 1836 '¢ : : 
; 1798 185 ! Remember the capability number so that when we find the associated 
3; 1799 1938 ' value, we know where to store it. The capability number is used as 
; 1800 1855 ' an index. 

: 1801 1856 f= 

; 1308 tH 

; 180 1858 AP CPARAM_L_CUR_CAP_NUMBER] = .SMGSSMASK_ADR; 

3 Hr 1923 SMGSSMASK_ABR ="0; ' cléar for next cap number 
3; 1806 1861 RETURN (SS$_NORMAL); 

: 1807 1396 : 

; 1808 18635 1 END; ! end of routine SMGS$STORE_CAP_MASK 


p 8 | 
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SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements if. Ht 0 £13388 AX-11 Bliss-32 V4.0 Page 33 

1-004 SMGSSSTORE_CAP_MASK = Store the capability mask 14-Sep-1984 13:10: SMGRTL.SRC SMGSTATAB. o 2:1 (2 
nye ‘ SMGSS$STORE_CAP_MASK, Save R2 ; 1812 

52 00000000" EF SMGS$S$MASK rR : 

50 AC 62 00 SHGSSMASK ADR, 80 (AP) ; 18 

6 presseAsn ; 18 

50 01 » RO 3 3 


; Routine Size: 19 bytes, Routine Base: _SMGSCODE + 0602 
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SMGSSTATEMENT_T TPARSE tables for TERMTABLE statements 16-Sep-1984 01:19: AX-11 Bliss-32 V4.0-74 Page 60. 
1-004 SHOSS SYNTAX ERROR = Signal a syntax error 1e-8ep-19 4 93518:68 SMGRTL.SRCISMGSTATAB.B 2;1 . (24) - 

; 1810 1864 1 XSBITL "SMGSSSYNTAX_ERROR = Signal a syntax error' | : 
; 1811 1865 1 GLOBAL ROUTINE SMGSSSYNTAX_ERROR = ; 
; \ei¢ 1 96 1 : 
; 181 1867 1 !+4 ; 
> 1814 1 08 1 ! FUNCTIONAL DESCRIPTION: 3 
; 1815 136 1! ; 
3 isis 139 ! Signal that a syntax error occurred while parsing TERMTABLE.TXT. ; 
; 1818 187 1 | CALLING SEQUENCE: | : 
; 1819 1873 1! ; 
; 1820 1874 1! : 
: 1821 1875 1 | SMGSSSYNTAX_ERROR <) | : 
3 3 ¢ 1876 1! : 
; 18 1877 1 ! FORMAL PARAMETERS: : 
> 1824 1878 1! ; 
3 1825 1879 1! NONE ‘ 
; 1826 1880 1! : 
; 1827 1881 1°! IMPLICIT INPUTS: ; 
; 1828 ieee 2% : 
; Ieee 1883 1! AP Points to TPARSE parameter block > 
; 1830 1884 1! : 
; 1831 1885 1 ! IMPLICIT OUTPUTS: , 
; 1836 1886 1! ; 
; 183 1887 1! NONE : 
> 1834 1888 1! : 
>; 1835 1889 1 ! COMPLETION STATUS: : 
; 1836 1890 1! : 
: 1837 1891 1! SS$_NORMAL : 
3; 1838 1336 1! : 
3; 1839 1895 1 ! SIDE EFFECTS: : 
; 1840 1894 1! : 
; 1841 1895 1 !-- : 
; 136 1996 1 : 
3; 184 189 BEGIN . 
3 1844 1898 BUILTIN . 
; 1845 1899 AP; ; 
: 1846 1900 MAP ; 
3 1847 1901 AP : REF BLOCK (,BYTE); ‘ 
; 1848 1286 : 
3; 1849 190 SIGNAL_STOP (SMG$_ERRAT_LIN, ; 
; 1850 1904 ._ »SMGS$SCORRENT LINE, : 
; 1851 1905 AP IPAS. .TOKENENT J. : 
; 1836 1906 -AP_CTPASL_TOKENPTRI, : 
3 132 1907 SMG$_SYNERR) : 
3; 1854 1908 : 
3; 1855 1909 END; ! end of routine SMGS$S$SSYNTAX_ERROR : 
0000 00000 ENTRY SMGSSSYNTAX_ERROR, Save nothing ; 1865 : 
000000006 00 of § PUSHAB SMG$_SYNERR 3 183 : 
7E 1 AC 7D MOVQ 16(AP), -(SP) : 190 : 
00000000" EF ODD PUSHL SMGSSCURRENT_LINE 7 1904 é 
3 3 1 PUSHL @# ; 1903 : 
000000006 F 1 PUSHAB SMG$_ERRAT_LIN : : 

| 


8 
tables for TERMTABLE statements B-sep-1984 91:13:86 AX-11 Bliss-32 et eS Page 61 
YNTAX_ERROR = Signal a syntax error -Sep-1984 13:10: SMGRTL.SRCJSMGSTATAB.B52;1 (24) 


SMGSSTATEMENT_T aad 3 1 

1 SMGS$S 1 

000000006 00 06 FB pp0i4 CALLS #6, LIBSSTOP 
04 00021 RET 


-004 


; Routine Size: 34 bytes, Routine Base: _SMGSCODE + 0615 


Sees TATERENTY TPARSE tab 


-" 
oO 
=D 
Oo 


xS 
GL 


'¢ 
' 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
'¢ 


02 09 09 09 C0 OD C0 C0 On 09 09 09 0D CD CD CD CD CD 0D CD CD 0.0000 


NOAUES WN O OONOAUE WN" OODNOU SW —OW”OOo~ 


SSe& 


0 00 09 09 09 09 09 09 C0 OD CD 
ooovono 
Mwn— 


Ss 


Sse 


oO 
o 
_ 
AOE WN © OONA UE WN 8 ODNOAOU EWN 0 OONAUE AR | OOWONOULS Ww 


3333383 


oo 


me et aaa a a a a a a od td od 2 = = a as 


Be Se Se Be Oe Se Be Ge se Ge SH Se F8 Se Ge Ge SH Se Se Se Ge Ge Se Be Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Se Se Ge Ge Se Se Se Se Se Ge Se Se Ss Se ee Fe Se Se Se ee ese ees 
ee eee Ss 
COOOWO OO OOOO VOOVOVOOVOVOOVOOOOVOOOODOVDOOODODODOOVDOOOVDOOVOOOWOVOOVOOVODOODOOWOOOwO 
POE AAAI BS BB BB BEE BE BWANA WWIAIRIPOPIPOPOPOPOPPNS SS 


OmFUn—O 0a 


“oovuo 
at od od od 
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les_for TERMTABLE statements 16-Sep-1984 01:19: AX-11 
SMGSSWRITE_DATA = perform block 1/0 write of da 12-8601 382 93313568 a 


BITL ‘SMGSS$WRITE_DATA - pet iors block I/ 
OBAL ROUTINE SMGS$WRITE_DATA = 


+ 
FUNCTIONAL DESCRIPTION: 


This routine writes the terminal data to TERMTABLE.EXE using 


block 1/0. 
CALLING SEQUENCE: 


SMGSSWRITE_DATA () 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

AP Points to TPARSE parameter 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 

SS$_NORMAL 

SIDE EFFECTS: 


BEGIN 
wee! 


AP : REF BLOCK C,BYTE); 
LOCAL 


O write of data to file’ 


block 


BINARY RAB : REF S$RAB_DECL, : point to RAB 


NUM 


BINARY_RAB = .AP CPARAM_A_BINARY_RAB); 


NUM BYTES = =A CPARAM_L_CUR DATA BYTE] ~ .AP CPARAM_A_CAP_DATAI; 
= IAP CPARAM_A_ 


BINARY_RAB RaBsu_RSZ 
BINARY-RAB CRABSL—~RBF 


BINARY_RAB CRABSL_BKT) = . SMGSSCURRENT 


BYTES ' number of bytes to write 
NUM~BLOCKS : INITIAL (0); ! number of blocks used 


CAP_DATA]; 
set up size & buffer addr 
BLOCK; 


' set virtual block number 


SWRITE (RAB = .BINARY_RAB); 


Update the next available block number. 


SMGRTL.SR 


SMGS 


52 


WwronS 
conn 


1979 1 
1980 1 !<BLF/PAGE> 


54 00000000' gf 


000000006 


; Routine Size: 63 bytes, Routine Base: 


SMGSSTATEMENT_T ant 43 tables for TERMTABLE statements 
1- WRITE_DATA = perform block 1/0 write of da 1 


SMGSSCURRENT_BLOCK = .SMGSSCURRENT_BLOCK + .NUM_BLOCKS; 


; 1914 1967 le 

; 1915 196 

: 1218 139 WHILE .NUM_BYTES GEQ 1 DO 

; 191 19 BEGIN 

; 1918 1971 NUM_BYTES = .NUM_BYTES = 
; 191 13/6 NUM_BLOCKS = .NUM_BLOCKS 
; 1920 197 END; 

: 1921 1974 

3; 19 § 1975 

3; 19 1978 

; 1924 197 RETURN (SS$_NORMAL); 

; 1925 1978 1 END; 


AC 


OVIMUOQMIOVi Pui 
AW ON SO LONMNOOW 


_SMGSCODE + 0637 


! end of routine SMG$$WRITE_BLOCK 


So 
oO 


ogu0-9 0-OoO [COT @MoICICo— 
FOO SMD Fo OOOW OSM 
OoOOoOCoOoOoOoOoCoOooOOooOoOSoCooO 
Soooooooooooooooooo 


; BINARY RAB 

6(AP)> NUM_BYTES 
UM BYTES, 34(BINARY RAB) 
56(AP), 4O(BINARY 


RAB) 
SMGSS$CURRENT_BLOCR, 56(BINARY_RAB) 


OW HSromou WD ovo 
— 
bad 


=512(R2), NUM_BYTES 
NUM_BLOCKS 


See SMGSSCURRENT _BLOCK 


COooooooooooooooooo 


RNIN ooo 
mMOoonkn Se 


a 


rs 


J 8 
STATEMENT_T TPARSE tables for TERMTABLE statements 16-Sep 1 AX-11 Bliss-32 v4.0 p 
sngss SMGSSWRITE_DATA = perform block 1/0 write of da 14-Sep -1382 9}: 13: 88 SMGRTL.SRC SMGSTATAB. o 2;1 a8? 9 

! End 


o 


) 


Lexemes/CPU-Min: 5 

Memo Used: 249 pages 

Compilation Complete 
| 
| 


; 1986 1983 : END End of module SMGSSTATEMENT_TABLES 
: 1931 19 : 0 ELUDOM 
-EXTRN LIBSSTOP 
H PSECT SUMMARY 
; Name Bytes Attributes 
: _SMGSDATA 24 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pig AL Tene 
>; LIBSKEYOS 12 NOVEC,NOWRT, RD, EXE, R, LCL, REL, CON, PIC,ALIGN(1) 
; VTLIBSSTATES 302 NOVEC,NOWRT, RD, EXE, » LCL, REL, CON, PIC,ALIGN(1) 
>; LIBSKEY1$ 4 eave Do « RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
;  _SMGSCODE 1654 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
ae eee oe ee ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: SYSLIBISTARLET 32:1 9776 90 0 581 00:01.0 
: ~$255$DUA28:(CSMGRIL.OB coer ie resst 36 0 0 8 00:00.1 
3 $52 2SDUAcS: SmcRit: OBJ SMGLIB.L32;1 469 1 0 38 00:00.4 
: “$ 55SSDUA SMGRTL.OBJJSMGTPALIB.L32;1 
3 41 23 56 10 00:00.1 
: ~$255$DUA28:CSYSLIBJTPAMAC.L32;1 42 28 66 14 00:00.1 
: COMMAND QUALIFIERS 
3 PLISS/CHECK OCP FELD. EMI TIAL OPTIMIZE) /MOTRACE/L L501. 159: SRESTATAB/OB.J “08.15: SRESTATAS MSRC$: SMGSTATAB/UPDATE=(ENH$: SMGSTATAB 
3; Size: 1647 coge + 387 data bytes 
3; Run Time: 755. 
; Elapsed Ae 02:46.4 
3 Lines/CPU Min: A38 
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